Sub Test()
Const texte$ = "SRS"
Dim c As Range, feuille As Worksheet, s(), msg$
s = Array("""" & texte & """ dans la cellule """, "Pas de """ & texte & """ dans l'onglet """)
For Each feuille In Worksheets
Set c = feuille.UsedRange.Find(texte, LookAt:=xlPart)
If c Is Nothing Then msg = s(1) & feuille.Name Else msg = s(0) & feuille.Name & "!" & c.Address(0, 0)
MsgBox msg & """."
Next
End Sub