Bonjour
Voici ta solution, a coller dans un module de ton premier classeur
Option Explicit
Dim WSDest As Worksheet
Sub CopyPast()
Set WSDest = Workbooks("Classeur1").Worksheets("Feuil1") ' modifier le nom du classeur et la feuille
Rows("1:1").Copy Destination:=WSDest.Range("A" & WSDest.Range("A65536").End(xlUp).Row + 1)
End Sub
Bonne journée
@Christophe@