Suppression ligne entière si elle vide

Bonjour, j'ai testé ce code pour supprimer une ligne si elle est vide mais ça ne me donne rien pas de message d'erreur et ça ne me supprime pas les lignes vides, y aurait-il un moyen de modifier ce code pour qu'il fonctionne en gardant la condition "if isEmpty"

merci beaucoup d'avance

Voici le code:

Sub sup_ligne_vide()

Dim Vide As Integer
Dim finTab As Long

finTab = ActiveSheet.UsedRange.Rows.Count

For Vide = finTab To 1 Step -1

If IsEmpty(Rows(Vide).EntireRow) Then

Rows(Vide).Delete
End If

Next

End Sub

Edit modo : prière de mettre le code entre balise SVP

Bonjour Algus et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum, notamment :

• Pour plus de lisibilité, utilisez la fonctionnalité </> pour insérer vos codes VBA (et si possible aussi pour vos formules Excel).

Ainsi que sur les fonctionnalités (Nouveau Forum au bas de page notamment)

Merci de votre participation

Cordialement

Bonjour Bruno merci pour votre réponse, je viens juste de modifier le poste ça ce voit que je suis nouveau pas seulement dans VBA J

Bonjour,

ci-dessous une proposition :

Sub sup_ligne_vide()
    Dim i As Integer
    Dim cell As Range

    For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        Set cell = Rows(i).Find("*")
        If cell Is Nothing Then Rows(i).Delete
    Next i

End Sub

NB : la fonction IsEmpty ne fonctionne que sur une cellule unique et la propriété .EntireRow est inutile lorsqu'on utilise déjà .Row

Bonjour, merci beaucoup pour la solution, mais est-ce que c'est possible de garder:

If isEmpty

merci

mais est-ce que c'est possible de garder:

If isEmpty

merci

Non, car cette fonction ne s"applique qu'à une cellule et non à une plage de plus d'une cellule.

Bien noté merci beaucoup pour votre aide