Microsoft 365 Cdbl et nombres à virgules

Private Sub TextBox257_Change() 'Tolal Achat ---------------------Ok
D = 257
Me.Controls("TextBox" & D).Value = Format(Me.Controls("TextBox" & D), "###0.00€")
Me.Controls("TextBox" & D).Value = Replace(Me.Controls("TextBox" & D).Value, ",", ".", 1, 1)
End Sub

With Feuil16
For K = .[a65000].End(3).Row To 6 Step -1

For Col = 26 To 314 Step 12
If .Cells(K, Col) = Txt1 Then
 
        'tx31 = 0
           tx31 = tx31 + CDbl(Feuil16.Cells(K, Col + 7))
                    TextBox257 = CDbl(tx31)
         End If
Next
Next
End With

If Val(TextBox257) <> CDbl(.Cells(Lag, C)) Then
MsgBox ("Attention le total des prix d'achat a été modifié depuis le dernière enregistrement" & vbCrLf & "Veuillez enregistrer a nouveau ce dossier")
End If

Option Explicit

Public Enum eReturnFormat
    fmtDouble = 5
    fmtCurrency = 6
    fmtString = 8
    fmtCurrencyString = 99
End Enum


'@Description "Adapte le séparateur pour une conversion en double"
Public Function AdaptSeparator(ByVal value As Variant, Optional ByVal ReturnType As eReturnFormat = fmtDouble) As Variant

    ' //  Conversion de la valeur d'entrée en String et suppression des espaces
    Dim sValue As String
    sValue = Replace(CStr(value), " ", "")

    ' //  Détermination du séparateur décimal du système
    On Error Resume Next
    Dim sDecimalSeparator As String
    ' // Valable que sous Excel...
    sDecimalSeparator = Application.International(xlDecimalSeparator)
    On Error GoTo 0

    ' //  Normalisation du séparateur décimal et retrait des séparateurs de milliers
    If sDecimalSeparator = "," Then
        sValue = Replace(sValue, ".", "")
    Else
        sValue = Replace(sValue, ",", "")
        If InStr(sValue, ".") = 0 And InStr(sValue, ",") > 0 Then
            sValue = Replace(sValue, ",", ".")
        End If
    End If

    ' //  Conversion et retour du résultat
    Select Case ReturnType
        Case vbString
            Dim vResult As Variant
            vResult = sValue

        Case vbDouble
            If IsNumeric(sValue) Then
                vResult = CDbl(sValue)
            Else
                vResult = Empty
            End If

        Case vbCurrency
            If IsNumeric(sValue) Then
                vResult = CCur(sValue)
            Else
                vResult = Empty
            End If

        Case fmtCurrencyString
            If IsNumeric(sValue) Then
                vResult = Format(CCur(sValue), "Currency")
            Else
                vResult = Empty
            End If

        Case Else
            vResult = sValue
    End Select
    AdaptSeparator = vResult
End Function

'Private Sub TextBox257_Change() ' // Changer le nom des contrôles...
Private Sub TotalAchats_Change()
    With TotalAchats
        .value = AdaptSeparator(value:=.value, _
                                ReturnType:=fmtCurrencyString)
    End With
End Sub