'version1
Const Val1$ = "SX,SP,SY"
Const Val2$ = "AA,DF,SY"
Const Val3$ = "CA,LF,SQ"
Sub Demo1()
Dim Valeur$, x&
t = Split(Val1 & "," & Val2 & "," & Val3, ",") 'compil en array
Valeur = "LF" 'la valeur à chercher
x = Application.IfError(Application.Match(Valeur, t, 0), 0)
Select Case True
Case x < UBound(t) + 1
Select Case x
Case 9: MsgBox "trouvé en position " & x & " dans la rubrique3"
Case 8: MsgBox "trouvé en position " & x & " dans la rubrique3"
Case 7: MsgBox "trouvé en position " & x & " dans la rubrique3"
Case Else: MsgBox "trouvé nulle part3"
End Select
Case x < UBound(Split(Val1 & "," & Val2, ",")) + 1 'rubrique2
Select Case x
Case 6: MsgBox "trouvé en position " & x & " dans la rubrique2"
Case 5: MsgBox "trouvé en position " & x & " dans la rubrique2"
Case 4: MsgBox "trouvé en position " & x & " dans la rubrique2"
Case Else: MsgBox "trouvé nulle part2"
End Select
Case x <= UBound(Split(Val1, ",")) + 1 'rubrique1
Select Case x
Case 3: MsgBox "trouvé en position " & x & " dans la rubrique1"
Case 2: MsgBox "trouvé en position " & x & " dans la rubrique1"
Case 1: MsgBox "trouvé en position " & x & " dans la rubrique1"
Case Else: MsgBox "trouvé nulle part1"
End Select
End Select
End Sub