Programme VBA excel

J'aimerai développer un programme sous VBA excel qui permettrait de comparer des cellules et un mot donné, si ce mot n'est pas trouvé dans la cellule alors la ligne est supprimée.

J'ai déjà fait ça, mais je bloque :

Sub g()

Dim mot1 As String = "POS-TRADE"

For i = 200 To 1 Step -1
If StrComp((Cells(i, 3)), mot1)==1
Then Rows(i).Delete
i = 200
Next

End Sub

Configuration: Windows XP
Internet Explorer 6.0