Bonjour et bienvenue
Si vous passez votre souris sur "monrepertoire" et puis sur "databodyrange" vous voyez quoi comme information
Je pense qu'il devait avoir un modèle de fiche dans le répertoire que vous choisissez (fiche.xlsx)
Au début du code remplacez éventuellement cette ligne
Set bdd = Sheets("BDD")
par ceci
Set bdd = Thisworkbook.Sheets("BDD")
Si ok pensez à cloturer le fil
Cordialement