Sub TestFormule()
'Partie 1 = La fonction VAL = OK
x1 = "123.45"
y1 = Val(x1)
'Partie 2 = La fonction VAL = NON OK
x2 = "12+(34*2)"
MsgBox Evaluate("=" & x2)
'Partie 3 = La fonction VAL = NON OK
x3 = "(C-32)/1.8"
xValC = 12
MsgBox Evaluate("=" & Replace(x3, "C", xValC))
End Sub