Sub test()
Dim ce_class As Workbook, wb_dest As Workbook
Dim lig_suiv As Long
Set ce_class = ThisWorkbook
Set wb_dest = Workbooks.Open("E:\VBA excel\Forum Excel-Download\fichier2.xls")
lig_suiv = wb_dest.Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
ce_class.Sheets("Feuil1").Rows(2).Copy wb_dest.Sheets("Feuil1").Rows(lig_suiv)
wb_dest.Close savechanges:=True
End Sub