Bonjour,
Pour que ta macro fonctionne tu dois la lancer en étant dans la feuille Base de données si tu es ailleurs ça va planter car elle travaille sur la feuille en cours.
Le mieux est d'ajouter au début de la macro :
Sheets("Base de Données").Select
A+