Modifier inputbox en listbox

Bonjour à tous,

J'ai un code dans lequel lorsqu'on clique sur un bouton, on a une box qui s'affiche et sur laquelle on peut écrire ce que l'on veut pour rechercher une donnée.

Je souhaiterai simplement lorsque je clique sur ce bouton, soit qu'une listbox apparaisse (en précisant une plage de données pour entrer les différents éléments)

Soit directement que la recherche s'effectue à partir d'un élément choisi dans une listbox présente sur la feuille.

J'espère avoir été clair ^^

Sub Risque()

Dim rngTrouve As Range
Dim strChaine As String, firstAddress As String
Dim n As Long
    n = 1
    strChaine = InputBox("Saisir un risque")
    Set rngTrouve = Sheets("Suivi AT").Columns(12).Cells.Find(strChaine, , xlValues, xlWhole)
    If Not rngTrouve Is Nothing Then
        firstAddress = rngTrouve.Address
        Do

            rngTrouve.EntireRow.Copy Sheets("Résultats statistiques").Range("A" & n)
            n = n + 1
            Set rngTrouve = Sheets("Suivi AT").Columns(12).FindNext(rngTrouve)
        Loop While Not rngTrouve Is Nothing And rngTrouve.Address <> firstAddress
    Else
        MsgBox "Pas trouvé"
    End If
End Sub

Si quelqu'un peut me donner un coup de main merci beaucoup !!

Personne ?

Bonjour

Poses toi la question pourquoi personne ne répond ?

Manque peut-être le fichier, les explications pas claires, manque peut-être le fichier, problème trop compliqué, manque peut-être le fichier etc....

Et en fonction de ça

Merci pour ta réponse.

Mon fichier est un peu brouillon, mais je vais quand même le mettre si ça peut aider.

Pour la demande je vais reformuler alors :

Un code dans mon fichier me permet de créer une requête.

Lorsque je clique sur un bouton (Risque) un userform apparaît et permet d'entrer un mot pour effectuer une recherche.

Je souhaiterai changer la façon de faire en remplaçant la recherche libre d'un mot, par une listbox dans laquelle on retrouve une liste pré établi. La personne pourra alors rechercher uniquement les mots qui sont présents dans la liste.

Et continuer à garder les différentes fonctions qui sont : Une fois le mot sélectionné, la recherche s'effectue et les données concernées qui sont trouvées dans une feuille sont collées dans une autre feuille. Ceci se fait actuellement, mais par la recherche d'un mot.

Voila, j'espère avoir été plus clair...