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