remplacer les . par des ,

Option Explicit
Sub test()
With Columns("A:A")
    .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="T", FieldInfo:=Array(Array(1, 1), Array(2, 9), Array(3, 9))
    .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="H", FieldInfo:=Array(Array(1, 1), Array(2, 9))
    .TextToColumns Destination:=Range("A1"), DecimalSeparator:=","
End With
End Sub

Sub Macro1()
    Columns("A:A").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'
    With Range("B2")
    .FormulaR1C1 = "=1*LEFT(RC[-1],FIND("","",RC[-1])+2)"
    .AutoFill Destination:=Range("B2:B294")
    End With
    
    With Range("C2")
    .FormulaR1C1 = "=MID(RC[-2],FIND("","",RC[-2])+3,3)"
   .AutoFill Destination:=Range("C2:C294")
    End With
    
    [A1].Select
    End Sub

Sub essai()
Dim x As Variant, r As Long, c As Long
 Application.ScreenUpdating = False
 x = Range("a1", Cells(Rows.Count, "c").End(xlUp))
 For r = 1 To UBound(x, 1)
 For c = 1 To UBound(x, 2)
 x(r, c) = Replace(x(r, c), ".", ",")
 Next c: Next r
 Range("a1", Cells(Rows.Count, "c").End(xlUp)) = x
End Sub