Function CalcEx(ByVal Text As String) 'Emploi de la fonction existante (toutes expressions math valides) CalcEx = Evaluate(Text) End Function Sub test() MsgBox CalcEx("1 + 2 - 3") End Sub