Textbox format €uros

.Cells(18, 2) = Format(TxBx_Montant.Value, "#,##0.00 €") '€uros automatique

Private Sub CommandButton1_Click()
       With Sheets("feuil1")

.Cells(18, 2) = TxBx_Montant.Value '€uros automatique

End With
End Sub

'Textbox "TxBx_Montant" en format €uros
Private Sub TxBx_Montant_Change()
Dim CHN As String, Start As Integer
CHN = TxBx_Montant.Text
Start = TxBx_Montant.SelStart
If CHN <> "" Then
If Right(CHN, 1) <> "€" Then
CHN = RTrim(CHN) & "  €"
TxBx_Montant.Text = CHN
TxBx_Montant.SelStart = Start
 
End If
End If
End Sub

' format €uros
Private Sub TxBx_Montant_AfterUpdate()
    TxBx_Montant.Text = FormatEuro(TxBx_Montant.Text)
    TxBx_Montant.SelStart = Len(TxBx_Montant.Value) - 1
End Sub

' fonction perso pour retourner le format Euro
Private Function FormatEuro(ByVal Txt As String) As String
    Txt = Replace(Replace(Replace(Txt, ".", ","), " €", ""), " ", "")
    FormatEuro = Format(CDbl(Txt), "### ### ##0.00 €")
End Function