Function Operation(Otype$, Plage)
Dim aux$, i As Byte, operateur$
If Plage.Rows.Count = 1 Then Plage = Application.Transpose(Plage)
Plage = Application.Transpose(Plage)
aux = "A+S-M*D/"
i = InStr(aux, UCase(Left(Otype, 1)))
operateur = Mid(aux, i + 1, 1)
Operation = Evaluate(Join(Plage, operateur))
If IsError(Operation) Then Operation = "" 'facultatif
End Function
Function Operation(Otype$, Plage)
Dim aux$, i As Byte, operateur$, txt$
If Plage.Rows.Count = 1 Then Plage = Application.Transpose(Plage)
Plage = Application.Transpose(Plage)
aux = "A+S-M*D/"
i = InStr(aux, UCase(Left(Otype, 1)))
operateur = Mid(aux, i + 1, 1)
txt = Join(Plage, " ")
txt = Application.Trim(txt) 'fonction Excel SUPPRESPACE
txt = Replace(txt, " ", operateur)
Operation = Evaluate(txt)
If IsError(Operation) Then Operation = "" 'facultatif
End Function