Function Supadix(C1 As Long, C2 As Long) As Long
Dim V1 As Variant, V2 As Variant
Application.Volatile 'permet le recalcul de la fonction
With Sheets("Feuil1")
V1 = .[B1]
V2 = .[B2]
End With
Supadix = IIf((V1 + V2) > 10, (V1 + V2 - 10), 0)
End Function