Sub Copie_Feuilles()
Dim fichier As String, Chemin As String
Dim cel As Range, rng As Range
Dim compteur As Integer, k As Long
Chemin = ThisWorkbook.Path & "\"
Set rng = ThisWorkbook.Worksheets(1).Range("A2:N2") 'À adapter aux nombres de colonnes
rng.Resize(1000).ClearContents 'Adapter au nombre max de fichiers
fichier = Dir(Chemin & "*.xls")
Compteur = 1
Application.ScreenUpdating = False
Do While Len(fichier) > 0
For k = 1 To Sheets.Count
For Each cel In rng.Cells
cel.Formula = "='" & Chemin & "[" & fichier & "]Feuil" & k & "'!" & Split(cel.Address, "$")(1) & "2"
cel.Value = cel.Value
Next cel
classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = "Mapage" & compteur
compteur = compteur + 1
Next k
Set rng = rng.Offset(1)
fichier = Dir
Loop
Application.ScreenUpdating = True
End Sub