Dim classeurCopie As Workbook, classeurColler As Workbook
'ouvrir les classeurs
Set classeurCopie = Application.Workbooks.Open(Filename:="C:\toto.xls")
Set classeurColler = Application.Workbooks.Open(Filename:="C:\titi.xls")
'copier
With classeurCopie.Sheets("Feuil1")
.Range(.Cells(7, 1), .Cells(7, 1).End(xlDown)).EntireRow.Copy classeurColler.Sheets("Feuil1").Range("A1")
End With