Sub ddddddd()
Dim sh As Worksheet, c As Range, r As Range, Adresse$, flag As Boolean, Texte$
recherche = InputBox("Recherche")
If recherche = "" Then Exit Sub
For Each sh In Sheets
Set c = sh.Columns(3)
With c
Set r = .Find(recherche)
If Not r Is Nothing Then
Adresse = r.Address
flag = True
Do
Texte = Texte & r & ":" & r.Offset(0, -2) & vbCrLf
Set r = .FindNext(r)
Loop While Not r Is Nothing And r.Address <> Adresse
End If
End With
Next
If Not flag Then
MsgBox "rien trouvé !"
Else
MsgBox Texte
End If
End Sub