Sub SupprimerLesLignes()
[COLOR="DarkGreen"]'test si le range (=la zone=ici la cellule B27) est vide donc egal a rien (="")[/COLOR]
If Range("B27").Value = "" Then
i = 94
[COLOR="DarkGreen"]'debut de la boucle[/COLOR]
Do
[COLOR="DarkGreen"]'supprime la ligne i (94, puis 93, puis 92)[/COLOR]
Rows(i).Delete
i = i - 1
Loop Until i = 91 [COLOR="DarkGreen"]'la boucle s'arrete des que i est egal a 91
(cad que la ligne 92 vient juste d'etre supprimee)[/COLOR]
End If
If Range("B26").Value = "" Then
i = 91
Do
Rows(i).Delete
i = i - 1
Loop Until i = 85
End If
End Sub