Function ComparVar(ByVal Var1 As Variant, ByVal Var2 As Variant, ByVal Operateur As String) As Boolean
If IsNumeric(Var1) Then Var1 = Replace(Var1, ",", ".") Else Var1 = """" & Var1 & """"
If IsNumeric(Var2) Then Var2 = Replace(Var2, ",", ".") Else Var2 = """" & Var2 & """"
ComparVar = Evaluate(Var1 & Operateur & Var2)
End Function
Sub Compare()
MsgBox ComparVar("a", "b", "<=")
MsgBox ComparVar(1.1, 1, ">")
End Sub