Code VBA marche pas du 1er coup mais du 2ème

Bonjour,

J'ai écris un code VBA pour qu'à chaque fois qu'il trouve les mots suivants dans les colonnes concernés (voir code ci-dessous), il efface la ligne contenant ces mots. Ce qui est bizarre c'est que lorsque je l'exécute une fois, il n'efface pas toutes les lignes concernées directement, il faut que je le lance 3, 4 fois avant que mon nombre de lignes n'évolue plus.
Quelqu'un pourrait-il m'expliquer qu'est-ce que j'ai raté dans ce code?

Merci

Sub SuppRow()

Dim Wbk As Workbook
Dim ws As Worksheet

Set Wbk = Workbooks("!20120627 BASECARBONE - Copie.xls")

For i = 55 To 3001
Wbk.Worksheets("MasterSheet").Activate

If Cells(i, 2).Value Like "*end of life*" Then
Rows(i).Delete
ElseIf Cells(i, 6).Value Like "déchets*" Then
Rows(i).Delete
ElseIf Cells(i, 6).Value Like "immobilisations*" Then
Rows(i).Delete
End If

Next i

End Sub