Supprimer lignes en fonction de la valeur d'une cellule

Question

Bonjour, je suis débutant en VBA et je galère sur cette macro (voir fin du post). Celle-ci fonctionne mais je souhaiterais supprimer les lignes dont les cellules de la colonne D sont nulles, or dans pour le moment, la macro suprimme si la cellule en D CONTIENT 0.

Pourriez-vous m'éclairer ?

Merci d'avance.

Macro :

Sub suppLignesSansArticle()

    Dim onglet_data As Worksheet
    Dim mot_clef As String
    Dim derniere_ligne As Long
    Dim ligne_en_cours As Long

    'identifier l'onglet
    Set onglet_data = Worksheets(ActiveSheet.Index)

    'identifier le mot clef
    mot_clef = "0"

    'boucle sur les lignes
    derniere_ligne = onglet_data.Range("D" & Rows.Count).End(xlUp).Row

    MsgBox ("Il y a ") & derniere_ligne & (" lignes à supprimer")

    For ligne_en_cours = derniere_ligne To 2 Step -1

        'comparer la phrase avec le mot clef recherch_
        If InStr(UCase(onglet_data.Cells(ligne_en_cours, 4)), UCase(mot_clef)) >= 1 Then
            onglet_data.Cells(ligne_en_cours, 4).EntireRow.Delete

        End If

    Next

    MsgBox ("Lignes vides supprimées")

End Sub

Invité · Accepted Answer

Une petite présentation ICI serait la bienvenue Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum &#91;A LIRE AVANT DE POSTER&#93; qui vous aidera dans vos demandes et réponses sur ce forum Concernant votre problématique, dans le code, vous identifiez un mot clé "0", il ne faut donc pas l'utiliser il faut remplacer la ligne If InStr(UCase(onglet_data.Cells(ligne_en_cours, 4)), UCase(mot_clef)) &gt;= 1 Then Par If onglet_data.Cells(ligne_en_cours, 4) = "" Then Merci de votre participation A+...