XL 2016 le combobox n'affiche pas toute la ligne de résultat après sélection

[bastringue]

Bonjour,
Je n'arrive pas à comprendre pourquoi ce combo qui semble rempli correctement (quand on le déroule il affiche ce qui est attendu) ne montre pas la sélection de manière complète.
Il contient 3 colonnes (la colonne liée est la première) et on donne la première largeur de colonne à 0 (pour masquer la valeur). Quand on le déroule, l'aspect est bon (voir Capture.png), mais une fois faite la sélection, alors il apparait uniquement la valeur de la colonne liée, supposée masquée (!), et les autres n'apparaissent plus ! (voir Capture2.png).

Voici comment il est peuplé (lors du initialize du form) :

'recherche doublons du nom fourni sur le formulaire d'acte (encore ouvert)
 nom = acte.TextNom
 Me.ComboBox1.Clear
 
 'On a 3 colonnes dans la liste et on fixe les largeurs des 2 premières :
 Me.ComboBox1.ColumnCount = 3
 Me.ComboBox1.ColumnWidths = "0,70"
 
 'On prépare une liste dont chaque ligne contient les 3 champs:  'n° sociétaire', 'nom', et 'autre'.
 Set Rng = Worksheets("Sociétaires").Range("A:C")
 Set c = Rng.Find(nom, LookIn:=xlValues)
 
 'la colonne 'liée' du sélecteur (= la valeur sélectionnée) est la 1ere colonne : n° de sociétaire
 
 If Not c Is Nothing Then
 
     'affichage d'une première ligne dans le sélecteur pour un nouveau sociétaire (n° temporaire=-1)
     Me.ComboBox1.AddItem
     Me.ComboBox1.List(0, 0) = "-1"
     Me.ComboBox1.List(0, 1) = " NOUVEAU "
     Me.ComboBox1.List(0, 2) = ""

     'affichage des autres lignes
     premier = c.Address
     i = 1
     Do
       Me.ComboBox1.AddItem
       Me.ComboBox1.List(i, 0) = c.offset(0, -1).Value
       Me.ComboBox1.List(i, 1) = c.Value
       Me.ComboBox1.List(i, 2) = c.offset(0, 1).Value
       Set c = Rng.FindNext(c)
       i = i + 1
     Loop While Not c Is Nothing And c.Address <> premier
 End If

Sauriez-vous dire pourquoi il n'a pas le bon aspect après sélection ?
Merci d'avance pour votre aide.
Pierre

 

[bastringue]

il suffit de préciser la colonne du Combo qui sera considérée pour son affichage :
Me.ComboOperateurs.TextColumn = 2
par exemple...