Supprimer ligne entière VBA boucle

Bonjour le fórum,

Je souhaiterai, via une macro, que toutes les lignes ne contenant pas " RSHOP" dans la colone F5:F200 soit supprimées:

J´ai reussi a faire ca mais ca les supprime pas toutes, je sais pas pourquoi:

Sub Supprimer ligne()

For Each cellule In Range("f5:f200")

If cellule.Value <> "RSHOP" Then cellule.EntireRow.Delete

End Sub

Merci

Bonjour

Il faut commencer par le bas dans la boucle

Sub Supprimer ligne()
dim i%
For i=200 to 5 step -1
If cells(i,5).Value <> "RSHOP" Then Rows(i).EntireRow.Delete
next i
End Sub

Et comment je l´adapte a mon fichier? vu que c´est pour la colone F cette fonction?

Re,

C'est pour la colonne F

cells(i,6) ----> cellule( i " N° de ligne, 6 (6ème colonne)

Je precise que c´est pour integrer dans une macro, donc je ne veux pas de validation a faire via une message box,

je joins le fichier ci joint

j´ai essayé ton code mais il me donne cette erreur

Re,

Autant pour moi, la lettre F c'est la 6ème colonne

Celle ci

Ahah, super ca marche! Merci beaucoup à toi (: