Bonsoir …
Autant profiter du Tableau (structuré) et sans le contrôle Recherche pour alimenter la liste (renommée Lst) :
‘initialisation de la liste à sa sélection directe
Private Sub Lst_GotFocus()
Lst.List = [Projects].Columns(3).Value
End Sub
‘une des suites à donner …
Private Sub Lst_DblClick(ByVal lstncel As MSForms.ReturnBoolean)
UserForm1.Show
Lst.ListIndex = 0
End Sub
Remarque : l’item sélectionné est directement mis dans la cellule liée (voir propriété LinkedCell).