Sub cherche(achercher)
For n = 1 To Sheets.Count
Set c = Sheets(n).Cells.Find(achercher, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
MsgBox (Sheets(n).Name & " " & c.Address)
Set c = Sheets(n).Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
Next n
End Sub