bonjour,
ci joint du code à placer dans un module
la valeur à chercher est toto, tu adaptes
Sub MaRecherche()
For Each f In WorkSheets
With f.Cells
'créer l'objet range de la valeur trouver
Set c = .Find(What:='toto')
'ensuite on test si cette objet n'est pas vide
If Not c Is Nothing Then
'on garde en mémoire l'adresse de la première occurence trouvée
firstaddress = c.Address
' on affiche la première occurance trouvée
MsgBox c.Address
'on continue a chercher pour trouver d'autres occurences
Set c = .FindNext(c)
Do While c.Address <> firstaddress And Not c Is Nothing
MsgBox c.Address
Set c = .FindNext(c)
Loop
End If
End With
Next
End Sub