Completer que si une cellule est remplie

Ca a l'air de fonctionner mais parfois ça m'efface la ligne 3 Je ne sais pas pourquoi. Et dans l'ideal, pour que ca soit ergonomique par rapport à ce que l'on fait. Supprimer au lieu de seulement effacer serait vraiment parfait !

Ca a l'air de fonctionner mais parfois ça m'efface la ligne 3 Je ne sais pas pourquoi.

Probablement que cela se passe lorsque vous n'avez pas de données dans la feuille. Sinon expliquez moi ce que vous avez sur votre feuille à ce moment là

essayez en remplaçant cette ligne

.Range(.Cells(4, 1), .Cells(dlg, dcl)).ClearContents

par ceci

If dlg > 3 Then .Range(.Cells(4, 1), .Cells(dlg, dcl)).ClearContents

Supprimer au lieu de seulement effacer serait vraiment parfait !

C'est à dire ?

Cela fonctionne bien normalement encore merci ! Pour le supprimer je me suis débrouillé et ca marche.

Encore merci !! Vous êtes un CHEF

Je voudrais limite supprimer toute les lignes directement au lieu d'effacer.

Dans la ligne d'effacement au lieu de Clearcontents mettez CLEAR

Crdlt