Function F(ByVal Equation As String, Optional ByVal X As Variant = 0) As Double
'Evalue la fonction f(x) au point x

'Mise en forme
Equation = UCase(Equation)
'évite la confusion de l'exponentielle EXP avec exp et X
Equation = WorksheetFunction.Substitute(Equation, "EXP", "exp")
'met la valeur X à la place de la lettre X
Equation = WorksheetFunction.Substitute(Equation, "X", X)
'converti virgule en point décimal
Equation = WorksheetFunction.Substitute(Equation, ",", ".")
'Interprète )( par )*(
Equation = WorksheetFunction.Substitute(Equation, ")(", ")*(")
'cacul l'expresion
F = Evaluate(Equation)

End Function