Comportement err.number VBA

Sub err_clear()

'Ligne à insérer ???
err = 0

Dim boucle As Integer

On Error Resume Next

For boucle = 1 To 3

Range("C" & boucle).Value = Range("A" & boucle).Value / Range("B" & boucle).Value

'Verif numéro erreur pour test
MsgBox Err.Number

' Si Division alpha (err.number = 13)
' Si diviseur = 0 (err.number = 11)
' ??? si division OK err.number = 9

If Err.Number <> 0 Then

Range("C" & boucle).Value = False

' RAZ erreur
Err.Clear
End If

Next boucle
End Sub