Bonjour,
proposition d'adaptation de ta procédure chercher
Sub chercher()
cherche = InputBox("valeur cherchée ?")
For Each ws In Worksheets
If Application.CountIf(ws.Cells, cherche) > 0 Then
MsgBox cherche & " se trouve dans la feuille " & ws.Name
ws.Select
ws.Cells.Find(cherche).Select
End If
Next
Exit Sub
End Sub