Xpress Blog'

'Définition du fichier
directory = "U:dossier"
fileName = Dir(directory & "*.xl??")


'On récupère toutes les worksheets du fichier excel ciblé 
Do While fileName <> ""
    Workbooks.Open (directory & fileName)
    For Each sheet In Workbooks(fileName).Worksheets
        total = Workbooks("fichier.xlsm").Worksheets.Count
        Workbooks(fileName).Worksheets(sheet.Name).Copy _
        after:=Workbooks("fichier.xlsm").Worksheets(total)
    Next sheet
Workbooks(fileName).Close
fileName = Dir()
Loop


Puis en fonction de ce que l'on souhaite, on peut jouer avec une feuille sur son indice, exemple pour la dernière : 

'On récupère le numéro du dernier worksheet arrivé.
Dim LastSheetName
LastSheetName = Sheets(Sheets.Count).Name