Quelques précisions.
Dans la macro j'ai:
With Feuil2 cela n'est pas le nom de l'onglet mais ce que l'on appel le codename
ci dessous on vois le codename à gauche et à droite le nom donné à l'onglet
Donc à adapter sur votre fichier.
ICI on vois que l'onglet nommé Data est Feuil1
Même si on renomme Data en BD Feuil1 reste, alors que si j'appel Sheets("Data") bug
Regarde la pièce jointe 1084336
Bruno