Private Sub TextBox9_AfterUpdate()
' PREMIERE PARTIE
TextBox339.Value = Val(TextBox9.Value) * (Val(TextBox10.Value) / 100)
TextBox21.Value = Val(TextBox339.Value) + Val(TextBox357.Value)
TextBox20.Value = Val(TextBox9.Value) + Val(TextBox274.Value)
'SECONDE PARTIE
If CheckBox1 = True Then
TextBox359.Value = Val(TextBox9.Value)
Else
TextBox359.Value = (0)
End If
End Sub