Boucle for each plante

Bonjour,

C'est mon premier message sur le site sur lequel je viens de m'inscrire car c'est un des meilleurs au vu de ce que je vois pour solutionner nos problèmes.

Donc ci-dessous voilà le problème que le n'arrive pas à résoudre

Dans une feuille Excel j'ai 2 colonnes colonne A et B (voir ci dessous le code) et à l'aide d'une boucle for each commençant par la fin je veux supprimer les lignes vides de la colonne B tout va bien jusqu'à la ligne 7 mais la ligne 6(par exemple) n'est jamais supprimée car la macro se termine subitement et si j'exécute une seconde fois le code la ligne est bien supprimée mais j'ai une erreur 1004 (erreur définie par l'application ou par l'objet) c'est quand même étonnant que tout s'arrête à la ligne 6 alors que tout fonctionne pour les autres lignes
NOM RANG
Nom1 1
Nom2 2
Nom3 3
Nom4 4
Nom5 5
Nom
Nom7 7
Nom8 8
Nom9
Nom10 10
Nom11 11
Nom12 12
Nom13 13
Nom14 14
Nom15 15
Nom16
Nom17
Nom18
Nom19 12
Nom20
Nom21 11
Nom22
Nom23
Nom24

voici le code
Sub suppligne3()
Dim L As Integer
Dim c As Integer
der = Range("A" & Rows.Count).End(xlUp).Row
L = der
c = 2
For Each cell In Range("A2:A25")
If Cells(L, c) = "" Then
Cells(L, c).EntireRow.Delete

End If
L = L - 1
Next

End Sub

Merci pour la réponse

Bonjour,

Teste ceci

Sub suppligne3()
  Dim L As Integer
  Dim i As Integer
  L = Range("A" & Rows.Count).End(xlUp).Row
    For i = L To 2 Step -1
      If Cells(i, 2) = "" Then Rows(i).EntireRow.Delete
    Next i
End Sub

merci tout fonctionne bien mais où se trouve le bouton V pour marquer comme résolu

cordialement

mille excuses j ai trouvé entre temps

bonne soirée