VBA - Macro de Recherche dans une liste

Bonjour,

N'y connaissant pas grand chose en VBA 🙁 , j'ai besoin de vos lumieres.

J'essaie de creer une fonction de recherche sur une liste de produits... pour le moment la prog (c'est pas la mienne, mais c'est des bouts de code piqués à droite et à gauche puis assemblés... merci aux différents auteurs 😉 ressemble à ça .

Sub cherch()

'ANNONCE PROD A CHERCHE
Message = "Entrez le nom (ou une partie du nom) du produit à chercher"
Title = "Recherche"
Dfault = "à entrer ici"
ficnum$ = InputBox(Message, Title, Dfault)

'rechercher la valeur
Sheets("Liste cycle").Select
Range("B:B").Select
'Définie la valeur à rechercher
'ficNUM$ = tbCARTE.Value
'Effectue la recherche

Do
On Error Resume Next
Selection.Find(What:=ficnum$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Select
If Err <> 0 Then
Sheets("Faire un Devis").Select
MsgBox "Produit inconnu : êtes vous sur de l'orthographe ?"
Exit Sub
End If
Dim Retour As Integer
Retour = MsgBox("Question à poser", vbYesNo + vbCritical + vbDefaultButton2, "Continuer ?")
If Retour = vbYes Then
Range("A1000") = "OUI"
Else
Range("A1000") = "NON"
End If
Loop While Range("A1000").Value = "OUI"

End Sub

Ca fonctionne, mais je souhaiterai pouvoir (grace a la message box) relancer la recherche sur les produits qui sont plus bas dans la liste, car certains peuvent avoir une partie de l'orthographe commune. Hors a chaque fois que je clique sur "oui", pour relancer la boucle, il revient sur le produit précedement trouvé et ne descend pas dans la suite de la liste.

Si vous avez une idée pour corriger ce probleme,

Merci, Florian