Sub Recup()
Dim Chemin As String
Dim Fichier As String
Dim LigneCible As Long
Dim FeuilleCible As Worksheet
'Chemin du dossier où se trouvent les fichiers
Chemin = "Z:\COMMUN\9.MATERIAUX\9.8 POINTAGE\2021\01-janvier\"
'Premier fichier
Fichier = Dir(Chemin & "*.xls")
LigneCible = 1
Set FeuilleCible = ActiveSheet
Do While Fichier <> ""
'Ouverture du fichier
Workbooks.Open Filename:=Chemin & Fichier
'Copie de la plage nommée "Zone_copiee" dans ce classeur
ActiveSheet.Range("Zone_copiee").Copy FeuilleCible.Cells(LigneCible, 1)
LigneCible = LigneCible + ActiveSheet.Range("Zone_copiee").Rows.Count
'Fermeture du fichier
ActiveWorkbook.Close savechanges:=False
'Fichier suivant
Fichier = Dir
Loop