Sub OuiNon()
Dim ColDeb As Integer
Dim LigDeb As Double
Dim Ligne As Double
Dim OK As Boolean
Dim IntRest As String
Dim IntAct As String
Dim PosEspace As Double
Dim PosTiret As Double
Dim BorneMin As Double
Dim BorneMax As Double
ColDeb = 2
LigDeb = 3
Ligne = LigDeb
While Cells(Ligne, ColDeb) <> ""
IntRest = Cells(Ligne, ColDeb)
OK = False
Do
PosEspace = InStr(IntRest, " ")
If PosEspace = 0 Then
IntAct = IntRest
Else
IntAct = Left$(IntRest, PosEspace - 1)
IntRest = Right$(IntRest, Len(IntRest) - PosEspace)
End If
PosTiret = InStr(IntAct, "-")
BorneMin = Val(Mid$(IntAct, 2, PosTiret - 2))
BorneMax = Val(Mid$(IntAct, PosTiret + 1, Len(IntAct) - PosTiret - 1))
If Cells(LigDeb - 1, ColDeb + 1) >= BorneMin And Cells(LigDeb - 1, ColDeb + 1) <= BorneMax Then OK = True
Loop Until (PosEspace = 0 Or OK = True)
Cells(Ligne, ColDeb + 1) = OK
Ligne = Ligne + 1
Wend
End Sub