Option Explicit
Sub test()
Dim c As Range, p As String, var As String
var = InputBox(Prompt:="Taper la valeur recherchée. ")
With Sheets("Intro").Cells
Set c = .Find(var, , xlFormulas, xlPart, , , False)
If Not c Is Nothing Then
MsgBox "Trouvé en " & c.Address(0, 0)
p = c.Address
Do
Set c = .FindNext(c)
If Not c Is Nothing Then MsgBox "Trouvé une autre en " & c.Address(0, 0)
Loop While c.Address <> p
End If
End With
End Sub