USF : 3 décimales et plus de virgule dans la feuille Excel

'TextBox_Cout_Horaire.Value = Replace(TextBox_Cout_Horaire.Value, ".", ",")

Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub

Private Sub TextBox_Cout_Horaire_Change()
TextBox_Cout_Horaire.Value = TextBox_Cout_Horaire.Value
If Not IsNumeric(TextBox_Cout_Horaire.Value) Then TextBox_Cout_Horaire.Value = 0
    ' _________ VALEUR INSCRITE SUR LA FEUILLE EXCEL______
        Sheets("Feuil1").Range("B2").Value = CDbl(Replace(UserForm1.TextBox_Cout_Horaire.Value, ".", ","))
    On Error Resume Next
        UserForm1.TextBox_Total.Value = CDbl(Replace(UserForm1.TextBox_ND_Heure, ".", ",")) * CDbl(Replace(UserForm1.TextBox_Cout_Horaire, ".", ","))
End Sub

Private Sub TextBox_ND_Heure_Change()
        If Not IsNumeric(TextBox_ND_Heure.Value) Then TextBox_ND_Heure.Value = 0
      Sheets("Feuil1").Range("A2").Value = CDbl(Replace(UserForm1.TextBox_ND_Heure.Value, ".", ","))
        ' ------CALCUL DU FORFAIT GLOBAL  _______________________
    On Error Resume Next
        UserForm1.TextBox_Total.Value = CDbl(Replace(UserForm1.TextBox_ND_Heure, ".", ",")) * CDbl(Replace(UserForm1.TextBox_Cout_Horaire, ".", ","))
End Sub

Private Sub TextBox_Total_Change()
    ' _________ VALEUR INSCRITE SUR LA FEUILLE EXCEL______
        Sheets("Feuil1").Range("C2").Value = UserForm1.TextBox_Total.Value
End Sub

Private Sub TextBox_Cout_Horaire_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44 'remplace le point par la virgule
End Sub