Private Sub CheckBox18_Click()
If CheckBox18.Value = True Then
TBoxTotalOptions = CDbl(TBoxTotalOptions) + CDbl(TextBox18.Value)
TBoxGrandTotal = CDbl(TboxPrixModele) + CDbl(TBoxTotalOptions)
TBoxPourcent = Format(CDbl(TBoxTotalOptions) / CDbl(TboxPrixModele), "0%")
Else
TBoxTotalOptions = CDbl(TBoxTotalOptions) - CDblTextBox18.Value
TBoxGrandTotal = CDbl(TboxPrixModele) + (TBoxTotalOptions)
TBoxPourcent = Format(CDbl(TBoxTotalOptions) / CDbl(TboxPrixModele), "0%")
End If
End Sub