recherche sous excel 2000

je ne sais pas si j'ai déjà répondu a cette question


Sub RechercheMot()
'mpfe, auteur inconnu
mot = InputBox("Mot à rechercher ?")
For Feuille = 1 To Sheets.Count
On Error Resume Next
Sheets(Feuille).Select
On Error GoTo 0
Set trouvé1 = Cells.Find(what:=mot)
If Not trouvé1 Is Nothing Then
trouvé1.Activate
étiq:
If MsgBox("Cellule " & ActiveCell.Address & vbLf & vbLf & _
LTrim(ActiveCell) & vbLf & vbLf & "Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If trouvé2.Column <> trouvé1.Column Or trouvé2.Row <> trouvé1.Row Then
trouvé2.Activate
GoTo étiq
End If
End If
Next Feuille
End Sub

@+