Microsoft 365 Erreur 424 et fonction gauche en vba

    'Remplacer les points par des virgules pour les colonnes G et H
    .Columns("G:H").Replace What:=".", Replacement:=",", LookAt:=2, SearchOrder:=1
    .Columns(7).TextToColumns Destination:=Range("G1"), DataType:=1
    .Columns(8).TextToColumns Destination:=Range("H1"), DataType:=1

'    'Remplace les . par des , pour les colonnes G et H
    .Range("G:H").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Sub MAcro()

Const FAT As String = "VteCaiBqe"

'Déclare la variable objet Worksheet (feuille de calcul)
Dim Feuille As Worksheet
'Désactiver le raffraichissement d'écran
Application.ScreenUpdating = False
'Désactiver le Calcul Automatique
Application.Calculation = xlManual

'Travailler sur la feuille "Vte"
With Worksheets("Vte")

    'Remplace les . par des , pour les colonnes G et H
    .Range("G:H").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
          
    'Supprimer colonnes inutiles
    .Range("A:A,E:E").Delete
          
    'Supprimer colonnes inutiles
    .Columns("D:D").Cut
    .Columns("B:B").Insert Shift:=xlToRight
    Application.CutCopyMode = False
    .Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=2, FieldInfo:=Nfo
    .[B1] = "N° Pièce"
    .[A1].CurrentRegion.Columns.AutoFit
End With

'Réactiver le Calcul Automatique
Application.Calculation = xlAutomatic
'Réactiver le raffraichissement d'écran
Application.ScreenUpdating = True

End Sub