Private Sub TextBox1_Change()
Range("f4") = TextBox1
calcul
End Sub
Private Sub TextBox2_Change()
Range("f6") = TextBox2
calcul
End Sub
Private Sub TextBox3_Change()
Range("f8") = TextBox3
calcul
End Sub
Sub calcul()
Me.TextBox4 = Format(Range("F11"), "#,##0.00 [$€-1]")
Me.TextBox5 = Format(Range("I11"), "#,##0.00 [$€-1]")
Me.TextBox6 = Format(Range("I13"), "#,##0.00 [$€-1]")
End Sub