suppression de lignes excel

Bonjour

j'ai fait le code suivant pour supprimer des lignes d'un fichier excel.

if le contenue de la cellule est <60 and qu'il y quelquechose dans la suite then
supprime la ligne
et passe à l'autre ligne
else
passe à l'autre ligne

voila mon code :
i = 35
While Not Cells(i, 5) = ""
x = Cells(35, 5)
Rows("i:i").Select
If x < 60 Then
Selection.Delete Shift:=xlUp
Else
i = i + 1
End If
Wend
il marche pas, pourriez vous m'aider a le debugger.

par avance merci

benben

i = 1 While Not Cells(i, 5) = "" x = Cells(i, 5) Rows(i).Select If x < 60 Then Selection.Delete Shift:=xlUp Else i = i + 1 End If Wend