Option Explicit
Sub exemple(V1, V2, V3, OP1, OP2, b1, b2)
With Feuil1
.[a1] = V1 & OP1 & V2 & OP2 & Application.Evaluate(V1 & OP1 & V2)
.[a2] = Application.Evaluate(V1 & OP1 & V2) _
& OP1 & V3 & OP2 & Application.Evaluate(V1 & OP1 & V2 & OP1 & V3)
.[a3] = V1 & b1 & V2 & OP2 & Application.Evaluate(V1 & b1 & V2)
.[a4] = V1 & b2 & V2 & OP2 & Application.Evaluate(V1 & b2 & V2)
End With
End Sub
'--------------------------------------------------------
Sub test()
Dim x1 As Double, x2 As Double, x3 As Double, oper1 As String, oper2 As String, z1 As String, z2 As String
x1 = 5
x2 = 10
x3 = 20
oper1 = "+"
oper2 = "="
z1 = "<"
z2 = ">"
Call exemple(x1, x2, x3, oper1, oper2, z1, z2)
End Sub