Re
Erreur les amis, erreur
Pour Reeaz, cela supprime la ligne entière crois moi, mais a la fin du code avec la ligne suivant:
Sheets("Feuil1").Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Dans laquelle tu remplace le numéro de collone, pour F :
Sheets("Feuil1").Columns(6).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Pour Alain
Le code est bon, et ta modif supprimera la ligne, oui, mais dès la ligne supprimer la boucle saut un ligne, puisque dès que tu supprime tous monte d'une ligne
Exemple:
Si tu as
Revenu
Autre
REvenu
Autre
Tresorerie
Autre
Cela marchera, mais essaye avec
Revenu
Revenu
Autre
Revenu
Tresorerie
Revenu
Autre
Tu verras que la, tous n'est pas supprimer
ce qui est logique
@Christophe@