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