Problème de format

Private Sub RunFormat_TextBox38(ByRef MyCell As Range)


    With MyCell
        With .Font
            MyCellFont = .Name
            MyCellFontSize = .Size
            MyCellFontColor = .Color
            MyCellBold = .Bold
            MyCellItalic = .Italic
            MyCellUnderLine = .Underline
            MyCellValue = MyCell.Value
        End With
       
    
    
    With Me.TextBox38
        With .Font
            .Name = MyCellFont
            .Bold = MyCellBold
            .Italic = MyCellItalic
            .Size = MyCellFontSize
            
        End With
        
        .ForeColor = MyCellFontColor
       [COLOR="Blue"] .Value = Format(MyCellValue, "# ##")[/COLOR]
    End With

Me.CommandButton2.Visible = True
End With
End Sub

Option Explicit



Private MyCellFont As String, _
        MyCellFontSize As Long, _
        MyCellFontColor As Long, _
        MyCellUnderLine As Long, _
        MyCellBold As Boolean, _
        MyCellItalic As Boolean, _
        MyCellValue As String

.Value = Application.Replace(MyCellValue, 2, 0, " ")