macro de recherche dans toutes les feuilles

Sub rech()
Dim c As Range, d As Range, Mot As String
Mot = Range("B1")
With Range("A4:A65000")
  .ClearContents
  Set d = .Cells(60000).End(xlUp).Offset(1)
End With
For t = 2 To ThisWorkbook.Sheets.Count
  With Sheets(t)
    Set c = .Range("A1")
    Set c = .Cells.Find(what:=Mot, LookIn:=xlValues, lookat:=xlPart)
    Do While Not c Is Nothing
      c = Replace(c, Mot, String(Len(Mot), "µ"), 1, 1)
      d = .Name & "!" & c.Address(0, 0)
      Set d = d.Offset(1)
      Set c = .Cells.FindNext(c)
    Loop
    Set c = .Cells.Find(what:=String(Len(Mot), "µ"), LookIn:=xlValues, lookat:=xlPart)
    Do While Not c Is Nothing
      c = Replace(c, String(Len(Mot), "µ"), Mot, 1, 1)
      Set c = .Cells.FindNext(c)
    Loop
  End With
Next t
End Sub