Function v(c$) As Variant
v = Evaluate("=" & Replace(Replace(Replace(Replace(c, """", ""), "fois", "*", , , 1), "fs", "*", , , 1), Application.DecimalSeparator, "."))
If IsError(v) Then v = c
End Function
Function w(c$) As Variant
w = Replace(Replace(Replace(Replace(c, """", ""), "fois", "*", , , 1), "fs", "*", , , 1), ".", Application.DecimalSeparator)
If IsError(w) Then w = c
End Function