ComboBox1.ColumnCount = 2
ComboBox1.Clear
' alimentation de la combobox en stockant des infos : feuille adresse
ComboBox1.ColumnWidths = "90;0" ' 0 pour la colonne cachée
For i = 2 To Sheets("Sheet1").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Sheet1").Range("A" & i)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = i ' dans la deuxième colonne on stocke
'le numéro de la ligne
Next i
le code suivant permet de récupérer le numéro de la ligne
ad1 = ComboBox1.List(ComboBox1.ListIndex, 1)