If avec condition sur meme objet

Bonjour à tous,
je me posais la question dernièrement de savoir si l on pouvait raccourcir cette formule :

Code:

---

1 2 3 4

If variable1 = 2 Or variable1 = "toujours" Or variable1 = "non" Then 'Est ce qu il existe une formulation comme cette suivante ? If variable1 = 2 Or "toujours" Or "non" Then

---

Merci à tous

Bonjour,
Par exemple avec Select Case
Exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim Variable1 Variable1 = 2 Select Case Variable1 Case 2, "toujours", "non" MsgBox "Pris en compte" ' Code End Select End Sub

---

Exactement ce que je voulais ! Merci beaucoup