Sub Demo()
Dim Val1, Val2, Valeur
Val1 = "SX,SP,SY": Val2 = "AA,DF,SY"
Valeur = "df"
Select Case CaseN("df", False, ",", "PR,TP", Val1, "GB,LP,TS", "AAA", Val2)
Case 1 ' trouvé dans "PR,TP"
'...
Case 2 ' trouvé dans Val1
'...
Case 3 ' trouvé dans "GB,LP,TS"
'...
Case 4 ' trouvé dans "AAA"
'...
Case 5 ' trouvé dans Val2 (ce qui sera le cas ici)
'...
Case Else ' trouvé nulle part
End Select
End Sub