Macro qui supprime les lignes ayant un 0 dans la colonne A

Bonjour à tous,

comme le résume le sujet, je souhaite supprimer toutes les lignes ou dans la colonne A se trouve le chiffre 0.

Merci d'avance pour votre aide.

Bonjour

Dans un module

Sub supp()
For i = [A65000].End(xlUp).Row To 1 Step -1
    If Cells(i, 1) = 0 Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

Cordialement