Copier toutes les feuilles d'un ensemble de f

Bonjour,
J'essaie de copier toutes les feuilles d'un ensemble de fichiers Excel se trouvant dans un même répertoire, dans un fichier Excel de compilation contenant le code suivant.
Malheureument il ne fonctionne pas comme prévu.
Quelqu'un pourrait-il m'aider ?
Merci !
Dimitri

Sub Copier()

Chemin = "C:\...\" 'Répertoire où se trouvent les Excel à compiler
Fichiersource = Dir(Chemin & "*.xlsx") ' Premier fichier à compiler
Fichiercible = ThisWorkbook.Name ' Fichier de compilation

Do While Fichiersource <> ""

Workbooks(Fichiersource).Activate

For Each Feuille In Workbooks(Fichiersource).Worksheets

Feuille.Copy After:=Workbooks(Fichiercible).Sheets(1)

Next Feuille

Fichiersource = Dir ' Fichier suivant
Loop

End Sub