Option Explicit
Sub Test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Range("A65536").End(xlUp).Row
On Error GoTo GestionErreur
If Range("A" & i).Value = 0 And Range("A" & i).Value <> "" Then Cells(i, 1).ClearContents
Reprendre:
Next i
Exit Sub
GestionErreur:
Range("A" & i).ClearContents
On Error GoTo 0
GoTo Reprendre
End Sub