I don't follow, try and explain with examples including addresses for
selection, range to be copied and the basis for determining the destination.
Is "Rapport des transactions" same sheet as the Target or another sheet.

What happens if Target is more than one cell.

this will never work -
taddress = (1, Target.Column).End(xlDown).Address

Did you try the example I posted, maybe you can adapt.

Regards,
Peter T


wrote in message
oups.com...
ok i change a few thing

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