Sub copier()
Dim fin&, wbksource As Workbook, wbkcible As Workbook, fichier$, x As Variant, i&
fichier = ThisWorkbook.Path
Set wbkcible = ThisWorkbook
Application.ScreenUpdating = False
ActiveSheet.Range("A2:S" & Feuil1.Range("A2").End(xlDown).Row).Clear
For Each x In Array("A", "B", "C")
Set wbksource = Workbooks.Open(fichier & "\" & x & ".xlsx")
ActiveSheet.Range("A2:S" & ActiveSheet.Range("A65536").End(xlUp).Row).Copy wbkcible.Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0)
wbksource.Close savechanges:=False
Next x
Application.ScreenUpdating = True
End Sub