Erreur d’exécution "6" Dépassement de capacité.

Bonjour,

Je suis entrain de créer une macro qui me permet de supprimer des lignes d'une colonne. Seulement, lorsque que je veux exécuter celle-ci, le message d'erreur : "erreur d’exécution "6" Dépassement de capacité." apparaît.
Voici mon programme.

Sub Bouton1()

Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("B" & i).Value = "C00001" Then
.Rows(i).Delete
End If
Next i
End With
End Sub


Pouvez-vous m'éclairer?
Merci d'avance