Private Sub TextBox17_Change()
Sommes
End Sub
Private Sub TextBox21_Change()
Sommes
End Sub
Private Sub TextBox24_Change()
Sommes
End Sub
Private Sub TextBox27_Change()
Sommes
End Sub
Sub Sommes()
TextBox1 = Val(Replace(TextBox21, ",", ".")) + Val(Replace(TextBox17, ",", ".")) _
& "-" & Val(Replace(TextBox24, ",", ".")) + Val(Replace(TextBox27, ",", "."))
End Sub