code vba probleme avec total HT

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array(“0.19”, “0.17”) ‘alimene la ComboBox1
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ‘à l’appui sur une touche d’u clavier dans la TextBox1
If KeyAscii = 44 Then KeyAscii = 46: Exit Sub ‘remplace la virgule par le point
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 8 ‘n’autorise que les caractères {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ‘à l’appui sur une touche d’u clavier dans la TextBox2
If KeyAscii = 44 Then KeyAscii = 46: Exit Sub ‘remplace la virgule par le point
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 8 ‘n’autorise que les caractères {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}
End Sub

Private Sub ComboBox1_Change() ‘au changement dans la ComboBox1
Dim Q As Double ‘déclare la variable Q (Quantité)
Dim PU As Double ‘déclare la variable PU (Prix Unitaire)
Dim TVA As Double ‘déclare la variable TVA
Dim MHT As Double ‘déclare la variable MHT (Montant Hors Taxe)
Dim MTVA As Double ‘déclare la variable MTVA (Montant TVA)
Dim TTC As Double ‘déclare la variable TTC

If TEST = True Then TEST = False: Exit Sub ‘condition : si TEST est [Vrai], TEST devient [Faux], sort de la procédure
With Me.TextBox1 ‘prend en compte la TextBox1
If .Value = “” Then ‘condition : si la textbox est vide
TEST = True ‘définit la variable TEST
Me.ComboBox1.Value = “” ‘vide la ComboBox1
MsgBox “Vous devez renseigner la quantité !” ‘message
.SetFocus ‘place le curseur dans la TexbBox1
Exit Sub ‘sort de la procédure
End If ‘fin de la condition
End With ‘fin de la prise en compte de la TextBox1
With Me.TextBox2 ‘prend en compte la TextBox2
If .Value = “” Then ‘condition : si la textbox est vide
TEST = True ‘définit la variable TEST
Me.ComboBox1.Value = “” ‘vide la ComboBox1
MsgBox “Vous devez renseigner le Prix Unitaire !” ‘message
.SetFocus ‘place le curseur dans la TexbBox2
Exit Sub ‘sort de la procédure
End If ‘fin de la condition
End With ‘fin de la prise en compte de la TextBox1

Q = CDbl(Val(Me.TextBox1.Value)) ‘définit la variable Q
PU = CDbl(Val(Me.TextBox2.Value)) ‘définit la variable PU
TVA = Val(Me.ComboBox1.Value) ‘définit la variable TVA
MHT = Q * PU: Me.TextBox3.Value = MHT: Me.TextBox3.Value = Replace(Me.TextBox3.Value, “,”, “.”) ‘définit la variable MHT et la renvoie dans la TextBox3
MTVA = MHT * TVA: Me.TextBox4.Value = MTVA: Me.TextBox4.Value = Replace(Me.TextBox4.Value, “,”, “.”) ‘définit la variable MTVA et la renvoie dasn la Textbox4
TTC = Round(MHT + (MHT * TVA), 2): Me.TextBox5.Value = TTC: Me.TextBox5.Value = Replace(Me.TextBox5.Value, “,”, “.”) ‘définit la variable TTC et la renvoie dans la TextBox5
End Sub

Private Sub CommandButton1_Click()
Unload Me ‘vide et ferme l’UserForm en cours
End Sub