Suppression des lignes où cellule vide dans une colonne x

Const lideb = 1
Const lifin = 50
Const coas = "F"

Public Sub SuppLignes()
Dim li As Long
With ActiveSheet
  For li = lifin To lideb Step -1
    If .Range(coas & li).Value = "" Then Rows(li).EntireRow.Delete
  Next li
End With
End Sub

Sub effacer()
Dim C As Byte 'Numéro de la colonne à controler
    C = 6
Dim Compteur As Byte 'Evite les boucle infinie
    Compteur = 0
For L = 1 To 100 'Controle les lignes 1 à 100
    If Cells(L, C).Value = "" Or Cells(L, C).Value = 0 Then 'Controle si vide
        Rows(L & ":" & L).Delete Shift:=xlUp 'Efface la ligne complète
        Compteur = Compteur + 1
        If Compteur = 5 Then Exit For 'Contrile si le compteur n'est pas égal à 5, s'il est = a 5 alors il ferme la boucle
        L = L - 1 'Recontrole la même ligne (Car la ligne vide prendra les valeur de la ligne en dessous
    Else
        Compteur = 0
    End If
Next
End Sub