Sub Remplacer()
Dim tbl As Variant
Dim i As Integer, cpt As Integer
tbl = Sheets("exemple").Range("C5:C8").Value
cpt = UBound(tbl)
For i = 1 To cpt
tbl(i, 1) = Replace(Replace(tbl(i, 1), ChrW(8239), ""), ",", ".")
Next i
' Nouvelles valeur en colonne A pour exemple
Sheets("exemple").Range("A5:A8") = tbl
End Sub