Supprimer une ligne excel VBA

Bonjour,

Je suis débutant sur le VBA excel, avant de dire quoique ce soit, je tiens à signaler que j'ai cherché la réponse sur différent forum sans trouver la réponse.

Je cherche à supprimer une ligne complète sur excel si dans ma colonne B, à partir de B5, le contenu est différent de ok.

J'ai trouvé ça qui marche bien, seulement la macro me les supprime ligne par ligne, c'est a dire que je suis obligé de relancer la macro pour chaque ligne.

Voici mon code:

Sub effacer()
For Each c In Sheets("Tabelle1").Range("B5:B" & Range("B65356").End(xlUp).Row)
If c <> "ok" Then c.EntireRow.Delete
Next c

End Sub

Merci d'avance pour vos réponses