Echec fusion fichiers xls par macro

Bonjour
Je souhaite fusionner tous les fichiers journaliers d'un même dossier pour que ça remplisse tout les uns en dessous des autres dans le fichier de destination.

On m'a dit sur ce forum de faire la macro dans le fichier de destination

Sub recup()
Range("A1").Select    'sélectionner la cellule de début
Chemin = "c:\Mes documents\..."     '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

De modifier juste le chemin soit O:\donnee-prod\ sans espace donc

et d'executer.

Malheureusement excel se mets toujours en erreur 1004 'la méthode range a echoué' sur la ligne
Range("bd_export").Copy


Comment faire pour forcer excell à copier toutes les lignes sachant que le nombre de colonne est fixe mais que le nombre de ligne varie d'un fichier à un autre ( de 50 à 3000)


Merci d'avance