Salut,
tu peux t'inspirer de ceci peut etre mais l'inconvénient est qu'il faut (dans cette version) mettre en 'dur' les noms de fichier dans le code (ici CL1.XLS, CL2.XLS, etc)
Bye
Sub cop()
Dim Last As Integer, I As Integer
Dim desti As Range, Dep As Range
Dim Nomfich As String
Dim Lesfiles As Variant
Dim Depart As Workbook
Dim Trois
Lesfiles = Array('cl1.xls', 'cl2.xlS', 'cl3.xLS')
'Nomfich = Application.GetOpenFilename('documents excel(*.xls),*.xls', , , , False)
'Workbooks.Open Filename:=Nomfich
Set Depart = ActiveWorkbook
For I = 0 To UBound(Lesfiles)
Call OuvrirTout(Lesfiles(I))
Set Trois = ActiveWorkbook
Last = Sheets(1).Range('A65000').End(xlUp).Row
'Depart.Activate
Set desti = Depart.Sheets('Feuil4').Range('A65000').End(xlUp)(2)
Set Dep = Range('A2
' & Last)
Dep.Copy desti
Trois.Close
Next
End Sub