Suppression ligne excel si cellule colonne 0

Sub SupprLigneCellZero_NumCol_a_definir()
Dim NumColonne As Long
Dim x As Long
Dim y As Long

NumColonne = Application.InputBox(Prompt:="Numéro de Colonne Concernée ?", Default:=NumColonne, Type:=1)
 If NumColonne = 0 Then Exit Sub

x = Range("A65536").End(xlUp).Row

For y = x To 1 Step -1

    If Cells(y, NumColonne).Value = 0 Then
    
        Rows(y).Delete
    
    End If

Next y

End Sub