Public WithEvents TbBox As MSForms.TextBox
Private Sub TbBox_Change() 'AfterUpdate() ne fonctionne pas
Dim i%, x$, s#, n%
TbBox = Replace(TbBox, ".", Application.DecimalSeparator)
With TbBox.Parent
For i = 1 To 12
x = .Controls("TextBox" & i)
If IsNumeric(x) Then s = s + CDbl(x): n = n + 1
Next
If n = 0 Then .TxtNote = "": .TxtTest = "": Exit Sub
.TxtNote = s / n
.TxtTest = IIf(s / n > 4, "Réussi", "Echoué")
End With
End Sub