Bonjour à tous,
Je m'excuse de t'avoir envoyé la mauvaise copie du fichier qui ne comprenait pas toutes mes modifications ...
Je l'ai déjà mentionné dans mes commentaires ... M'enfin ...
Lorsque l'on cherche la dernière ligne d'une plage de données, il faut la rechercher au niveau des données ... pas systématiquement sur la plage de la colonne A ... car, dans ce cas-ci, la colonne A est vide ...
Aussi, si tu avais placé un point d'arrêt (touche F9) et fait un pas-à-pas (touche F8), tu aurais vite constaté que derligne
était à problématique ...
Dans Private Sub Cb_Click()
derligne = Sheets("SUIVI DES ECHANGES 2020").Range("B456541").End(xlUp).Row + 1
Avec de l'observation ... tu vas y arrivé ...
ric