Useform avec textbox et combobox pour realiser une recherche par mot clef

[Delux]

Bonjour a tous,

(desole pour les accents, QWERTY oblige)

Je me permets de creer ce poste car j'ai du mal avec l'adaptation de macro dans les useform.

J'ai trouve un vieux post traitant de ce sujet, mais cela me permet pas de resoudre mon problem
https://www.excel-downloads.com/thr...ns-un-userform-avec-bouton-et-textbox.131702/

Je souhaite en effet realiser un useform qui, grace a un textbox (ou l'on entre un mot clef), va faire une recherche du mot clef (dans une liste) et afficher dans un combobox les resultats. Le mot peut se trouver n'importe ou dans la phrase de la cellule (debut, milieu, fin).

J'ai egalement trouve une macro sur le net, mais je n'arrive pas a l'adapter a un useform :/

Sub ChercheDansFeuille()
    Columns("P:P").Select
    Selection.ClearContents
    Range("A9").Select
    With Worksheets("Feuil1")
        If .AutoFilterMode Then
            Selection.AutoFilter
        Else
        End If
    End With
    strMot = Application.InputBox(Prompt:="Entrer le mot à rechercher", _
                                  Title:="Mot recherché ...", Default:="SANTE", Type:=2)
    Set Cell = Sheets(1).Cells.Find(strMot)
    If Not Cell Is Nothing Then
        Cell1 = Cell.Address
        Do
            Cells(Cell.Row, 16).Value = "T"
            Set Cell = Sheets(1).Cells.FindNext(Cell)
        Loop Until Cell.Address = Cell1
    End If
    Selection.AutoFilter Field:=16, Criteria1:="T"
End Sub

Actuellement, il y a une macro dans mon fichier qui fait des recherches par mot mais uniquement par un mot ou une lettre qui se trouve en debut de phrase :/. Ce qui est tres restrictif pour une recherche.
Pour lancer cette macro il suffit de tapper le mot en C5.

Je vous joint un exemple du fichier en question ainsi que celui contenant la macro.

J'espere avoir ete assez precis dans ma requete.

Merci par avance pour votre aide.

Cordialement,

Delux