Sub test()
Application.ScreenUpdating = False
Dim derl As Long
Dim derc As Long
derl = Range("A1000000").End(xlUp).Row
derc = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Workbooks("1").Sheets("Feuil1").Range(Cells(1, 1), Cells(derl, derc)).Cut _
Destination:=Workbooks("2").Sheets("Feuil2").Range(Cells(1, 1), Cells(derl, derc))
End Sub