Voila j'ai fini sa marche très bien.
Je poste le code au cas ou quelqu'un en aurait besoin.
Merci.
Option Explicit
Function Regle(chaine As String, nbr As Integer) As Integer
Dim i As Byte
Dim nombre As Integer
Dim valeur1 As Integer
Dim valeur2 As String
Dim valeur3 As Integer
Dim cible As String
Regle = 0
nombre = 0
valeur1 = 0
valeur2 = ""
valeur3 = 0
cible = chaine
For i = 1 To Len(cible)
If IsNumeric(Mid(cible, i, 1)) Then
nombre = Val(Mid(cible, i, Len(cible) - i + 1))
i = i + Len(Str(nombre)) - 1
If valeur1 0 And valeur2 "" Then
valeur1 = nombre
ElseIf valeur3 = 0 Then
valeur3 = nombre
End If
Else
If valeur2 "" And Not Mid(cible, i, 1) " " Then
valeur2 = Mid(cible, i, 1)
If Mid(cible, i + 1, 1) = "=" Then
valeur2 = valeur2 & Mid(cible, i + 1, 1)
End If
End If
End If
Next
If valeur2 = "à" And valeur1 <= nbr And valeur3 >= nbr Then
Regle = 1
ElseIf valeur2 = "<" And nbr > 0 And valeur3 > nbr Then
Regle = 1
ElseIf valeur2 = "<=" And nbr > 0 And valeur3 >= nbr Then
Regle = 1
End If
End Function