Sub copiercoller()
Dim Lg%, Col%, Ws As Worksheet, Sh As Worksheet
Set Ws = Workbooks("Classeur1.xlsm").Sheets("Vantaux sur mesure")
Set Sh = Workbooks("Classeur2.xlsm").Sheets(1)
Lg = Ws.Range("A" & Rows.Count).End(xlUp).Row - 1
Col = Ws.Cells(1, Columns.Count).End(xlToLeft).Column - 1
Ws.Range(Ws.Cells(2, 1), Ws.Cells(Lg, Col)).Copy Sh.Range("A2")
End Sub