Fusionner plusieurs fichiers dans un seul global

Bonjour, j'ai 36 fichier excel avec le meme type de données, c'est à dire les memes entêtes de tableau. Et je voudrais les rassembler tous dans un seul fichier grâce a VBA, j'ai tenté un code mais il ne fonctionne pas je le mets en dessous, si quelqu'un est capable de me le corriger ou me proposer une autre solution je serais reconaissant. Merci.

Sub recup()
Dim chemin As String
Dim Fichier As Workbook
Range("B1").Select 'sélectionner la cellule de début
chemin = "H:\Dossier retour KUEHNE Trié" '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("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub