Private Sub UserForm_Activate()
Set plage = [A1:C10]
With ComboBox1
'si la plage est multicolonne on récupère la 1 dans la combobox1
'.List = Split(Join(Application.Transpose(Application.Index(plage.Value, 0, 1)), "|"), "|")
'mais si la plage fait qu'une colonne alors c'est plus simple
.List = Split(Join(Application.Transpose([A1:A10].Value), "|"), "|")
.Value = 84
MsgBox .ListIndex
End With
End Sub