Salut bien,
C'est facile
Je te donne les indication et tu fais . .
Ici j'ai mis en rouge la lettre de colonne donc tu adaptes
Le Feuil2 est le 1er nom qui apparait dans la fenêtre des projets
Bruno
Private Sub TextBox1_Change()
Me.ListBox1.Clear
If Me.TextBox1 = "" Then Exit Sub
With Feuil2.Range("E1:E" & Feuil2.[E65000].End(3).Row)
Set c = .Find(TextBox1.Text, LookIn:=xlValues)
If Not c Is Nothing Then
. . . . .et la suite