Ligne vides ne se suppriment pas

Bonjour,

Sous Excel j'ai 2 colonnes une de A2 à A20 et à côté une autre colonne  qui commence à B2 mais qui comporte des lignes vide. Avec la macro ci dessous qui consiste à supprimer des lignes vides ça fonctionne bien si une seule ligne est vide mais si 2 lignes consécutives sont vides une seule est supprimée de plus à la fin si j'ai 4 ou 5 lignes vides dans la colonne B la macro ne supprime aucune ligne ,je ne vois pas d'où vient le problème

Merci pour la réponse

Sub supprimlignes()

Dim L As Integer
Dim C As Integer
 L = 2
 C = 1
 
 For Each cell In Range("A2:A20")

If .Cells(L, C + 1) = "" Then
Cells(L, C).EntireRow.Delete

End If
L = L + 1
Next

End Sub
 

Windows / Chrome 109.0.0.0