Bonsoir,
J'ai réussi à trouver la solution à ma question, je passe par une listbox en utilisant le code suivant :
Private Sub TBox_famille_Change()
der = Sheets("feuille1").Range("A" & Rows.Count).End(xlUp).Row
ListBox1.Clear
ListBox1.Visible = True
Application.ScreenUpdating = False
If Tbox_famille <> "" Then
For I = 2 To der
If Sheets("feuille1").Cells(I, 1).Value Like Tbox_famille & "*" Then
ListBox1.AddItem Sheets("feuille1").Cells(I, 1).Value
End If
Next I
End If
Application.ScreenUpdating = True
End Sub
Les noms à rechercher sont dans la feuille 1, colonne A. Dans un textbox (Tbox_famille) il suffit de taper la première, voire les deux premières lettres, etc, d'un nom recherché, alors tous les noms commençant par cette ou ces lettres s'inscriront dans la listBox1. Il suffira ensuite de choisir le nom désiré dans la ListBox1 et de gérer son utilisation.