Here is my macro now:


Private Sub Worksheet_Change(ByVal Target As Range)


If Intersect(Target, Range("A33:O49")) Is Nothing Then Exit Sub
If Range("O" & Target.Row) = "" Then Exit Sub
Target.EntireRow.Copy
Application.EnableEvents = False


taddress = (1, Target.Column).End(xlDown).Address


With Sheets("Rapport des transactions")
.Range(taddress).PasteSpecial xlPasteAll
End With


Application.EnableEvents = True


End Sub


I'm trying to copy my info in the first empty row of sheet "Rapport des

Transactions" in the same column as the target. What should i change
because it doesn't work?


Thank you
MP