Function EvalExpMixte2(ByVal ch As String) As String
Const oper As String = "()+-*/"
Dim param, i As Long, j As Long, tmp
param = [B18:C20].Value
For i = 1 To Len(oper)
ch = Replace(ch, Mid(oper, i, 1), "|" & Mid(oper, i, 1))
Next i
tmp = Split(ch, "|")
For i = 0 To UBound(tmp)
For j = 1 To UBound(param)
If Mid(tmp(i), 2) = param(j, 1) Then
tmp(i) = Replace(tmp(i), param(j, 1), param(j, 2))
End If
Next j
Next i
EvalExpMixte2 = Join(tmp, "")
End Function