Private Sub Calculer_Click()
TextBox3 = Format(Val(Replace(TextBox1, ",", ".")) - Val(Replace(TextBox2, ",", ".")), "# ##0.00 €")
End Sub
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(Val(Replace(TextBox1, ",", ".")), "# ##0.00 €")
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox2 =...