Supprimer Lignes selon Criteres

Salut chers tous

Je voudrais supprimer toutes les lignes comportant les chiffres 1 de la colonne B comme l'illustre le fichier Joint.Merci

Bonjour,

à tester,

Sub supprime()
Dim i As Long
For i = Cells(Rows.Count, "B").End(xlUp).Row To 7 Step -1
 If Cells(i, "B") = 1 Then Rows(i).Delete xlShiftUp
Next i
End Sub

Super!!!!!!!!

merci pour ce retour et bonne continuation,

ps/ s.v.p. n'oublie pas de marquer la question comme étant résolu.