Option Explicit
Sub XLS_recap()
Dim classeurMaitre As Workbook, wbk As Workbook
Dim wsh As Worksheet, rng As Range
ChDir ThisWorkbook.Path
Set classeurMaitre = ThisWorkbook
nf = Dir("*.xl*")
Application.ScreenUpdating = False
Do While nf <> ""
If nf <> classeurMaitre.Name Then
With classeurMaitre.Worksheets
Set wsh = .Add(after:=.Item(.Count))
End With
Set wbk = Workbooks.Open(Filename:=nf)
Set rng = wbk.Worksheets(1).UsedRange
wsh.Range("A1").Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
wbk.Close False
End If
nf = Dir
Loop
Application.ScreenUpdating = True
End Sub