Bonjour Ali,
Une solution avec cette macro.
Le texte à chercher doit être dans la cellule active.
Sub Macro1()
x = ActiveCell
Sheets("Feuil2").Select
Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
Tu n'as plus qu'à associer cette macro à un bouton.