Condition et opérateurs logiques

Dim op As String
Dim chiffre1 As String, Seuil As String
chiffre1 = "3"
Seuil = "2"
op = ">"
Debug.Print Evaluate(chiffre1 & op & Seuil)

If Evaluate(CStr(chiffre2) & op & CStr(seuil)) = True Then
     blablabla
End If

Evaluate("15>9") ' produira True 
Evaluate("9>15") ' produira false
Evaluate("coucou") ' lèvera une erreur (Type incompatible)  si le nom "coucou" n'existe pas dans le classeur

evaluate(replace(cstr(12.12),",",".")& "<15")

If  evaluate(replace(cstr(12.12),",",".")& "<15") Then
   '.....................
End if

If Evaluate(Replace(CStr(chiffre2), ",", ".") & op & Replace(CStr(seuil), ",", ".")) Then
    blablabla
End If

Sub V_F()
  Dim Nb$, Seuil$, Condition$
  Nb = "10,5": Nb = Replace(Nb, ",", ".")
  Seuil = "5,2": Seuil = Replace(Seuil, ",", ".")
  Condition = "<"
  For n = 0 To 4
    If Condition = Array("<", ">", ">=", "<=", "<>")(n) Then _
       Resultat = Evaluate(Nb & Condition & Seuil)
  Next
  MsgBox Resultat
End Sub

Function F_PJ_LW(chiffre As Double, op As String, seuil As Double)
Select Case op
  Case ">"
   resultat = chiffre > seuil
  Case "="
   resultat = chiffre = seuil
  Case "<"
   resultat = chiffre < seuil
  Case "<>"
   resultat = chiffre <> seuil
  Case ">="
   resultat = chiffre >= seuil
  Case "<="
   resultat = chiffre <= seuil
   Case Else
   resultat = "#! opérateur incorrect !"
End Select
F_PJ_LW = resultat
End Function

Function F_GD_LW(chiffre As Double, op As String, seuil As Double)
' ------ accepte OP : >, <, >= ,<= ,=, <>, + , - , / , * ,  ^
' ------ si entiers accepte également , et E
F_GD_LW = Evaluate(Application.Substitute(chiffre & op & seuil, ",", "."))
End Function

If Evaluate(Application.Substitute(chiffre2 & op & seuil, ",", ".")) = True Then
    blablabla
End If