Select Case cboTVA
Case Is = 7
a = CDbl(txtPU) * CDbl(Txt_qté_vente) * 0.07
If TextBox17 = "" Then TextBox17.Value = 0
TextBox17.Value = Format(CDbl(TextBox17.Value) + a, "# ###.00")
'======================================================================================
Case Else
a = CDbl(txtPU) * CDbl(Txt_qté_vente) * 0.196
If TextBox18 = "" Then TextBox18.Value = 0
TextBox18.Value = Format(CDbl(TextBox18.Value) + a, "# ###.00")