Créer une fonction CRITERE

Public Function test(ech, ope As String, ref) As Boolean
Dim ok As Boolean
ok = False
Select Case ope
  Case "=": If ech = ref Then ok = True
  Case ">": If ech > ref Then ok = True
  Case ">=": If ech = ref Then ok = True
  Case "<": If ech < ref Then ok = True
  Case "<=": If ech <= ref Then ok = True
End Select
test = ok
End Function

Function test(échantillon, opérateur, valeur)
    Dim r(), i, v, nc
    nc = Application.Caller.Columns.Count
    If échantillon.Count = 1 Then
        test = Evaluate(Replace(échantillon & opérateur & valeur, ",", "."))
    Else
        i = -1
        For Each v In échantillon
            i = i + 1
            ReDim Preserve r(i)
            r(i) = Evaluate(Replace(v & opérateur & valeur, ",", "."))
        Next v
        If nc = 1 Then test = Application.Transpose(r) Else test = r
    End If
End Function

Function CRITERE(opérateur As String, valeur As String) As String
    CRITERE = opérateur & valeur
End Function

Public Function critere(operation As String, valeur) As String
  critere = operation & valeur
End Function