Bonjour,
Un test qui fonctionne chez moi si on recherche la lettre A par exemple :
Sub RECH()
Dim MOT$, WS As Worksheet, TROUVE As Range
MOT = InputBox("Veuillez taper le mot recherché")
For Each WS In Worksheets
Set TROUVE = Worksheets(WS.Index).Cells.Find(MOT)
If Not TROUVE Is Nothing Then
TROUVE_1 = TROUVE.Address
Do
MsgBox "'" & WS.Name & "'!" & TROUVE.Address
Set TROUVE = Worksheets(WS.Index).UsedRange.FindNext(TROUVE)
Loop While Not TROUVE Is Nothing And TROUVE.Address <> TROUVE_1
End If
Set TROUVE = Nothing
Next WS
End Sub
A adapter à votre fichier.
Cdlt,