supprimer plusieur lignes à partir du contenue d'une cellule variable

Bonjour,

Je souhaite supprimer toute les lignes à partir de la cellule contenant "60".

Le code ci-dessous supprimer la ligne à 60 mais pas celle d'en dessous.

Merci pour votre aide.

Micka


' Macro1 Macro
'
For n = 2 To Range("A65536").End(xlUp).Row
If Range("A" & n) = 60 Then
Rows(n).Delete
End If
Next n

'
End Sub