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

Application.EnableEvents = False
Target.EntireRow.Copy _
Destination:=Sheets("Rapport des transactions").Cells(rows.count, _
"A").end(xlUp).offset(1,0)
Application.EnableEvents = True
End Sub

--
HTH...

Jim Thomlinson


" wrote:

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