En remplaçant la ligne suggérée par "iliyes" (ligne = Range("Tableau1").ListObject.ListRows.Count + 1), ça a l'air de fonctionner de nouveau ... Mais j'aimerais bien savoir pourquoi.
Je teste plus profondément et je reviens vers vous.
J'ai téléchargé les deux fichiers proposés par BrunoM45 et je vais "potasser" ça tranquillement.
En attendant, merci à vous deux.
Très bonne soirée à tous, Bernard17