Sub copier()
[A1].End(xlDown).Select
Range(ActiveCell, ActiveCell.Offset(0, 8)).Select
Selection.Copy
[A1].End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
[A65536].End(xlUp).Select
Range(ActiveCell, ActiveCell.Offset(0, 8)).Select
Selection.Copy
[A65536].End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
[A1].Select
End Sub