Sub copier()
Dim chemin$, i%
chemin = ThisWorkbook.Path & "\"
For i = 1 To 2
Workbooks.Open chemin & "fichier " & i & ".xlsx"
ActiveWorkbook.Sheets(1).Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell).Address).Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(3).Offset(1, 0)
ActiveWorkbook.Close False
Next
End Sub