Sub MiseEnForme()
Dim c As Range
'copie de la feuille 1
Sheets("1").Copy after:=Sheets(Sheets.Count)
'mise en forme des données
For Each c In Rows("14:14").SpecialCells(xlCellTypeConstants, 1)
'Pour chaque cellule de la ligne 14 contenenat une valeur numérique
With Range(c(2), c.End(xlDown))
'avec les données présentes dans la colonne de ces cellules
.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
'remplacer le caractère " par rien
'puis faire un Données/Convertir - séparateur : virgule - options avancées : séparateur décimal: .
.TextToColumns Destination:=c(2), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Comma:=True, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), DecimalSeparator:=".", TrailingMinusNumbers _
:=True
'appliquer le format numérique : Nombre , décimales :2
.NumberFormat = "0.00"
End With
Next
End Sub