Macro Excel: Pb de suppression de lignes.

Bonjour,

Je souhaiterais supprimer toutes les lignes dont la cellule O contient la chaine de caractères 300Model

J'excute la macro ci-dessous et cela ne fonctionne pas.
Quelqu'un peut-il m'aider ou me conseiller.
Merci.

Dim K As Long
Dim Libel As Range
Set Libel = Range("O2:O" & Range("O2").End(xlDown).Row)
For K = Libel.Cells.Count To 1 Step -1
If Libel.Cells(K).Value = "300Model" Then
Libel.Cells(K).EntireRow.Delete
End If
Next
Range("O1").Select