Bonjour à tous.

J’ai besoin d’un petit coup de main.

Voilà le problème :

Rechercher un mot au travers de certaines feuilles par ex.(« Feuil1 », « Feuil2 », « Feuil2 ») sélectionner la feuille et le mot trouvé.

J’ai essayé çà :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
mot = InputBox("Mot à rechercher ?")
    For Each Feuille In Sheets
    Set trouvé1 = Cells.Find(What:=mot, LookAt:=xlWhole)
    If Not trouvé1 Is Nothing Then
        trouvé1.Select
    End If
    Next Feuille
Cà bug sur « Set trouvé1 = Cells.Find(What:=mot, LookAt:=xlWhole)”.

Je ne trouve pas de solution quelqu’un pourrait-il m’aidait

Merci d’avance.