Sub Recherche()
For Each Sh In Worksheets
With Sh
a = Sh.Name
Set C = .Cells.Find(What:=Sheets("Feuil1").Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not C Is Nothing Then
firstAddress = C.Address
Do
Sh.Activate
C.Activate
Set C = .Cells.FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
Next
End Sub