Trie

Bonjour Abed,
Si par "indexés" tu veux dire ..?...: "sans doublons"
voici un exemple avec une liste en colonne b et une aurtre en colonne c

'****
Option Explicit
Dim col As String
Dim List_temp As New Collection

Private Sub UserForm_Initialize()
Call rempliste(ComboBox1, "b")
Call rempliste(ComboBox2, "c")
End Sub
Sub rempliste(malist As ComboBox, col As String)


Dim i As Integer, derlg
Dim c As Range
Do While List_temp.Count > 0
List_temp.Remove 1
Loop
On Error Resume Next
derlg = Range(col & "65536").End(3).Row
For Each c In Range(col & "2:" & col & derlg)
List_temp.Add c, CStr(c)
Next c
On Error GoTo 0

For i = 1 To List_temp.Count
malist.AddItem List_temp(i)
Next i


End Sub
'****
'lSteph


"A_Haddou" <Abed_Cpt@Excel.com> a écrit dans le message de news:
eCBfyXHRGHA.5500@TK2MSFTNGP12.phx.gbl...

Bonjour a tt

Comment procéder,

Dans une feuil de calcul des noms des clients que je l'obtient par la
méthode Find

Pour que je rempli un Combobox, « AddItem » lors de la sélection je
voudrait voir ces noms indexés

Merci d'avance.