Une possibilité. J'ai simplifié pour que ce soit plus clair. Dans le dossier d:\Temp j'ai mis 2 classeurs-cibles au format XLS.
Dans le dossier d:\Temp2 j'ai créé un 3e fichier contenant une macro qui récupère les feuilles des 2 fichiers-cibles. La macro :
Path = "D:\Temp\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete