Suppression lignes sur critéres

Bonjour à tous,

je souhaite supprimer toutes les lignes de la colonnes U qui ont une valeur de 0%

j'ai donc écrit ce code.

Sub poi_Sup0()
' suppression des lignes <> recencement dans la feuil "POI_POSTE"
Worksheets("POI_POSTE").Select
Application.ScreenUpdating = False
    For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
    If Not Cells(i, 21) Like "0%" Then Rows(i).Delete
    Next
Application.ScreenUpdating = True
End Sub

Mais il me supprime toutes mes lignes.

Je vous joint un exemple de quelques lignes.

A vous lire.

Bonjour

je voie : If Not Cells(i, 21) Like "0%" Then Rows(i).Delete

il faut peux être mettre :

If  Cells(i, 21)  = 0 Then Rows(i).Delete

A+

Maurice

Merci Maurice,

c'est parfait.

A bientot