J'ai trouvé un truc sympa
Dim cellule As Range
For Each cellule In Selection
texte = cellule
Position = InStr(1, texte, ",", 1)
If Position <> 0 Then
Mid(texte, Position, 1) = "."
End If
Call Format(texte, "0.00")
cellule = texte
Next
ca marche bien
merci pour l'idée de Format