Sub Macro1()
Application.ScreenUpdating = False
derligne = Range("A65535").End(xlUp).Row
Rows(derligne).Select
Selection.Copy
Range("A" & derligne + 1).Select
ActiveSheet.Paste
Cells(derligne + 1, 3).ClearContents
Application.CutCopyMode = False
Cells(derligne + 1, 3).Select
Application.ScreenUpdating = True
End Sub