Formulaire Excel

Bonjour

J'ai créé une liste déroulante sur une feuille Excel
grace à un contrôle "zone de liste déroulante" de
la barre d'outils "Formulaire"

Peux t'on avoir 2 colonnes dans dans cette liste déroulante
et masquer la deuxième colonne

en effet qd on déroule la liste on voit une liste des clients mais qd on
choisit un client, j'aimerai récupérer le contenu de la deuxième colonne de
la liste (le code client)

Je sais le faire dans un UserForm VB, en métant ds les propriétés
ColumnCount : 2
BoundColum : 2
Largeur : 5 cm;0 cm (pour masquer la deuxième colonne)

en fait je n'arrive pas initialiser ma liste en Vb si ma variable tableau a
2 colonnes dans une liste sur une feuille de calcul et non pas ds un
UserForm

'le code suivant marche ----------------------
Tab=Array("A","B","C")
Worksheets("Questionnaire").Shapes("ContrôleListeVersions").ControlFormat.List
= Tab

'le code suivant NE MARCHE PAS ----------------------
Option Base 1
Dim TabMois(12,2)
Sub Test()
TabMois(1, 1) = "Janvier"
TabMois(2, 1) = "Février"
TabMois(3, 1) = "Mars"
TabMois(4, 1) = "Avril"
TabMois(5, 1) = "Mai"
TabMois(6, 1) = "Juin"
TabMois(7, 1) = "Juillet"
TabMois(8, 1) = "Aout"
TabMois(9, 1) = "Septembre"
TabMois(10, 1) = "Octobre"
TabMois(11, 1) = "Novembre"
TabMois(12, 1) = "Décembre"
For i = 1 To 12
TabMois(i, 2) = i
Next
Worksheets("Questionnaire").Shapes("ContrôleListeVersions").ControlFormat.List
= TabMois


'J'obtiens une erreur sur la dernière ligne


MERCI DE VOTRE AIDE

Pierre