paramétrer select case via des listes

Bonjour,

Je souhaite paramétrer mes valeurs de select case via des listes afin d'optimiser un programme. Je n'ai pas trouvé de réponses (désolé si je rouvre un sujet déjà ouvert). Voici un exemple du code que je souhaiterai réaliser (qui ne marche pas, naturellement) :

Sub test_select_case()
liste1 = Array(1, 2, 4, 7)
liste2 = Array(3, 5, 6)
For i = 1 To 10
Select Case i
Case liste1
Range("b1").Offset(i, 0) = "liste1"
Case liste2
Range("b1").Offset(i, 0) = "liste2"
End Select
Next i
End Sub

Merci par avance de vos réponses !
Hieu.