Suppresion ligne lorsqu´une colonne contient une certaine valeur

Option Explicit
'---------------------------------------------
Sub destroy()
Dim Nbre As Long, Cptr As Long

Application.ScreenUpdating = False
With ActiveSheet
    Nbre = Application.CountIf(.Columns("A"), 0) 'ou "0" ???
    For Cptr = 1 To Nbre
        .Rows(.Columns("A").Find(0, Cells(Cells.Rows.Count, "A")).Row).Delete
         'ou ....Find("0"........
    Next
End With
End Sub

Sub supression_ligne() 
Dim Num_Ligne As Long 
Dim Last_line As Integer 

Last_line = Range("A1").End(xlDown).Row 

For Num_Ligne = Last_line to 1 Step -1 

If Cells(Num_Ligne, 4).Value = "0" Then Cells(Num_Ligne, 4).EntireRow.Delete 


Next Num_Ligne 

End Sub