Sub parcours_rep_copie_fic()
Dim N As Long
Dim Chemin As String
Dim Fin As Long
Dim W_BK As Workbook
'ICI METTRE le nom de ton répertoire
Chemin = "c:\tempo\"
DoEvents
Application.ScreenUpdating = False
Set W_BK = ThisWorkbook
With Application.FileSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
'.Filename = "*.xls" 'ici mettre le début du nom de tes fichiers identiques
.SearchSubFolders = False
On Error Resume Next
If .Execute > 0 Then
For N = 1 To .FoundFiles.Count
Fin = W_BK.Sheets("Feuil1").[A65536].End(xlUp).Row + 1
Workbooks.Open (.FoundFiles(N))
With ActiveWorkbook
'ici la recopie se fait sur la feuille 1, changer le nom si besoin
.Sheets("Feuil1").Range("A1:A10").Copy W_BK.Sheets("Feuil1").Cells(Fin, 1)
.Close False
End With
Next N
End If
End With
Application.ScreenUpdating = True
End Sub