Sub Copier()
Dim chemin$, fichier$, plage As Range
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.xls*")
Set plage = ThisWorkbook.Worksheets(1).Cells '1ère feuille de calcul
Application.ScreenUpdating = False
While fichier <> ""
If fichier <> ThisWorkbook.Name Then
With Workbooks.Open(chemin & fichier)
plage.Copy .Worksheets(1).Cells(1) 'copier-coller
.Close True 'enregistre et ferme le fichier
End With
End If
fichier = Dir
Wend
With plage(1).MergeArea: .Copy plage(1): .Merge: End With 'allège la mémoire
End Sub