Fusionner fichiers excel dans la même feuille

Bonjour,
Je souhaiterai fusionner 95 fichiers excel ayant le même format dans une seule feuille.
J'ai trouvé cette macro :

Sub recup()
Range("A14").Select 'sélectionner la cellule de début
Chemin = "H:\Données RUPPENDORF\Rupperdorf 2dn analysis\Export January 2019\Export January 2019\Group 6\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("bd_export").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A3000000").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub

Cependant, lorsque j'exécute cette macro, cela m'ouvre mon premier fichier + j'ai une erreur d'exécution '1004'.

Quelqu'un pour m'aider ? :-)

Merci d'avance ,