Si une valeur dans la colonne est supérieur à X alors supprimer la ligne

Bonjour je rencontre un petit problème avec un morceau de mon code qui me paraissait plutôt simple, je voudrais que quand une valeur dans la colonne U est supérieur à 7, toute la ligne soit supprimer, j'ai donc fait ce morceau de code mais ca ne fonctionne pas :

If Sheets("Ma feuille").Range("Ma colonne") > X Then

Selection.EntireRow.Delete

End If

Message d'erreur :

Je pensais que cela suffisait, mais apparemment non.

Auriez-vous une solution ?

Cordialement

MikaG

Bonjour Mika,

Une proposition :

Sub suppr()
    NbLignes = Sheets("Ma Feuille").Range("U1").End(xlDown).Row
    For i = 1 To NbLignes
        If Sheets("Ma Feuille").Range("U" & i) > 7 Then
            Range(i & ":" & i).Delete
            i = i - 1
        End If
    Next i
End Sub

Nicolas

J'ai testé votre code et il ne voulait pas supprimer de ligne, cependant je m'en suis servi et l'ai modifié un peu et maintenant cela fonctionne :

NbLignes = Sheets("Ma Feuille").Range("Ma Colonne").End(xlDown).Row
For i = X To NbLignes
If Sheets("Ma Feuille").Cells(i, X) > X Then
Sheets("Ma Feuille").Rows(i).Delete Shift:=xlUp
i = i - 1
End If
Next i

Merci beaucoup pour votre aide et bonne journée à vous !

Cordialement

MikaG