Supprimez ligne Blanche VBA Excel

Sub effaceLigne()
Dim ws As Worksheet
Dim lig As Long
Dim plage As Range

    'déclaration de l'objet feuille - mettre ici le numéro de la feuille à traiter.
    Set ws = Worksheets(1)
    'numéro de la première ligne à traiter
    lig = 2
    
    With ws
        'Tant que la cellule A est vide faire
        While .Range("A" & lig).Value <> ""
            'Déclaration de la plage à controler
            Set plage = .Range("E" & lig & ":AD" & lig)
            'Appel de la fonction qui contrôle la plage
            If ctrlPlage(plage) = True Then
                'Si le retour de la fonction est Vrai alors
                'on supprime la ligne
                .Rows(lig).Delete
                lig = lig - 1
            End If
            'On libère l'objet et la mémoire
            Set plage = Nothing
        'Pour passer à la ligne suivante
        lig = lig + 1
        Wend
    End With
    
    
End Sub

Function ctrlPlage(ByRef pTarget As Range) As Boolean
Dim cel

    'Pour toutes les cellules de la plage
    For Each cel In pTarget
        'Si le contenu de la cellule est différent de vide
        If cel.Value <> "" Then
            'On retourne Faux
            ctrlPlage = False
            'On sort de la fonction
            Exit Function
        End If
    Next cel
    
    ctrlPlage = True
    
End Function