Addition , Devision dans plusieurs USF

TextBox2 = Format((CDbl(UserForm1.TextBox1 + CDbl(UserForm2.TextBox1 + CDbl(TextBox1)))) / 3, "0.00")

Private Sub UserForm_Activate()
 es
End Sub
Private Sub TextBox1_Change()
 es
End Sub
Sub es()
 On Error Resume Next
 If TextBox1 = "" Then TextBox2 = "": Exit Sub
 TextBox2 = Format((CDbl(UserForm1.TextBox1 + CDbl(UserForm2.TextBox1 + CDbl(TextBox1)))) / 3, "0.00")
End Sub

Sub es()
 On Error Resume Next
 If TextBox1 = "" Then TextBox2 = "": Exit Sub
 TextBox2 = Format((CDbl(Replace(UserForm1.TextBox1, ".", ",") + CDbl(Replace(UserForm2.TextBox1, ".", ",") + CDbl(Replace(TextBox1, ".", ","))))) / 3, "0.00")
 TextBox2 = Replace(TextBox2, ",", ".")
End Sub

Sub es()
Dim x#, y#, z#
x = Val(Replace(UserForm1.TextBox1, ",", "."))
y = Val(Replace(UserForm2.TextBox1, ",", "."))
z = Val(Replace(TextBox1, ",", "."))
TextBox2 = Format((x + y + z) / 3, "0.00")
End Sub

Sub es()
Dim sep$, x$, s#, y$, z$
sep = Mid(0.1, 2, 1)
x = Replace(UserForm1.TextBox1, ".", sep)
If IsNumeric(x) Then s = CDbl(x)
y = Replace(UserForm2.TextBox1, ".", sep)
If IsNumeric(y) Then s = s + CDbl(y)
z = Replace(TextBox1, ".", sep)
If IsNumeric(z) Then s = s + CDbl(z)
TextBox2 = Format(s / 3, "0.00")
End Sub

Sub es()
Dim sep$, x$, s#, n As Byte, y$, z$
sep = Mid(0.1, 2, 1)
x = Replace(UserForm1.TextBox1, ".", sep)
If IsNumeric(x) Then s = CDbl(x): n = 1
y = Replace(UserForm2.TextBox1, ".", sep)
If IsNumeric(y) Then s = s + CDbl(y): n = n + 1
z = Replace(TextBox1, ".", sep)
If IsNumeric(z) Then s = s + CDbl(z): n = n + 1
If n Then TextBox2 = Format(s / n, "0.00") Else TextBox2 = ""
End Sub