Suppression de la ligne si une colonne donnée comprend un caract

Bonjour à tous,

Je débute en programmation VBA et j'ai essayé d'écrire un code pour le besoins suivant

J'ai crée un tableau avec en têtes, et je voudrais que ligne par ligne, le programme vérifie si la colonne H contient le terme oui. Si c'est le cas, je veux que le programme supprime la ligne, et passe à la ligne suivante pour vérifier.

J'ai essayé de programmer cela mais il ne se passe rien :

Sub SUPPRIMEBAL()

Dim Derligne As Integer
Dim NumLigne As Integer
Dim Val As String

Derligne = 50
NumLigne = Derligne

Sheets("Feuil1").Select


For NumLigne = Derligne To 3 Step -1

If Range("H" & NumLigne) = Val Then

Rows(NumLigne).Delete Shift:=xlUp
End If

Next NumLigne

End Sub


Pouvez-vous m'aider svp ?

Cordialement

Pierrot