Pb code VBA - Si IsNotNumeric = ClearContents

Bonjour,

Pourriez-vous m'aider SVP pour un code VBA permettant de mettre à zéro les cellules des colonnes B à D qui ne sont pas des valeurs numériques ? Merci pour votre aide

Ci-joint un début de code mais qui ne fonctionne pas sur le fichier joint :
Public Sub toto()
With ActiveSheet
Dim i As Integer
toto:
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If NotIsNumeric (Range("D" & i).Value) Then
Range ("B"&i).Value.ClearContents
GoTo toto
End If
Next
End With
End Sub