Sub test_GetSheets()
Dim Path As String
Dim FName As String
Dim classeur As Workbook
Dim Sheet As Worksheet
Path = "C:\Documents..."
FName = Dir(Path & "*.xlsx")
Do While FName <> ""
Set classeur = Workbooks.Open(FileName:=Path & FName, ReadOnly:=True)
For Each Sheet In classeur.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next Sheet
classeur.Close False
Set classeur = Nothing
FName = Dir()
Loop
End Sub