Private Sub TextBox21_Change()
Dim a, i, s
a = Array(TextBox21, TextBox17, TextBox63, TextBox64)
With Feuil1.[Z4:Z7] 'CodeName de la feuille
For i = 1 To 4
If IsNumeric(.Cells(i)) Then s = s + .Cells(i) * Val(Replace(a(i - 1), ",", "."))
Next
End With
TextBox1 = s
End Sub
Private Sub TextBox17_Change()
TextBox21_Change
End Sub
Private Sub TextBox63_Change()
TextBox21_Change
End Sub
Private Sub TextBox64_Change()
TextBox21_Change
End Sub