Supprimer Lignes à 0

Bonjour tout le monde,

Comment je peux supprimer toutes les lignes dont les cellules de la colonne A contient une valeur numérique égale à 0

Petite Idée sans doute à améliorer:

a = 2 ' 1ere ligne de la zone
n = 10 ' dernière ligne de la zone


debut:
n = n - 1
If n = a Then End

If Cells(n, 1) <> "" Then GoTo debut
Rows(n).Select
Selection.Delete Shift:=xlUp
GoTo debut