XL 2016 Calcul entre Textbox et renvois dans une textbox principale

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'que numéric et 1 seule virgule
If KeyAscii = 46 And Not TextBox1 Like "*,*" Then KeyAscii = 44: Exit Sub
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub Txt_AutPrestaServ_Change()
TXT_ValeurDuMouvement.Value = CDbl(Txt_VenMar.Value) + CDbl(Txt_ServComArt.Value) + CDbl(Txt_AutPrestaServ.Value) 'Met a jour TextBox Valeur du mouvement
End Sub



Private Sub Txt_ServComArt_Change()
TXT_ValeurDuMouvement.Value = CDbl(Txt_VenMar.Value) + CDbl(Txt_ServComArt.Value) + CDbl(Txt_AutPrestaServ.Value) 'Met a jour TextBox Valeur du mouvement
End Sub


Private Sub Txt_VenMar_Change()
TXT_ValeurDuMouvement.Value = CDbl(Txt_VenMar.Value) + CDbl(Txt_ServComArt.Value) + CDbl(Txt_AutPrestaServ.Value) 'Met a jour TextBox Valeur du mouvement
End Sub

Private Sub Txt_VenMar_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
    If InStr("0123456789,", Chr(keyascii)) = 0 And keyascii <> 32 Then
        keyascii = 0      'on annule la pression sur la touche
'          Else
'            KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub


Private Sub Txt_ServComArt_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
    If InStr("0123456789,", Chr(keyascii)) = 0 And keyascii <> 32 Then
        keyascii = 0      'on annule la pression sur la touche
'          Else
'            KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
  End Sub



Private Sub Txt_AutPrestaServ_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
    If InStr("0123456789,", Chr(keyascii)) = 0 And keyascii <> 32 Then
        keyascii = 0      'on annule la pression sur la touche
'          Else
'            KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
 
   
End Sub

Private Sub cmdButValider_Click()
Dim Derligne As Integer

If TXT_NouveauClient = "" Then MsgBox "Veuillez renseigner un client SVP !!!", vbExclamation, "": TXT_NouveauClient.SetFocus: Exit Sub
  With Sheets("Données")
  Derligne = .Range("B65000").End(xlUp).Row
  .Cells(Derligne + 1, 2) = TXT_NouveauClient.Value
  End With
  
Call Tri_Clients

With USF_NouveauMouvement
USF_NouveauMouvement.Cbx_Client.Clear
With Sheets("Données")
xdlgn = .Range("B" & .Rows.Count).End(xlUp).Row
  For I = 5 To xdlgn
  If .Cells(I, 2) <> "" Then
  USF_NouveauMouvement.Cbx_Client.AddItem .Cells(I, 2)
  End If
  Next I
End With


End With
  Unload Me
 

End Sub

Private Sub cmdButValider_Click()
Dim Derligne As Integer
With USF_NouveauClient
  StrClient = .TXT_NouveauClient
If StrClient = "" Then MsgBox "Veuillez renseigner un client SVP !!!", vbExclamation, "": .TXT_NouveauClient.SetFocus: Exit Sub
End With
        With Sheets("Données")
            Derligne = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
            .Cells(Derligne, 2) = StrClient
        End With
 '*****************************     
Call Tri_Clients
'******************************
With USF_NouveauMouvement.CBX_Client
    .Clear  'on efface les donnees
    .List = Tab_Clients 'on colle le tableau des Noms
    .Text = StrClient 'on affiche le Nouveau Nom
End With
     Unload Me 'on masque le Userform "Nouveau Client"
End Sub