Sub Traque()
'Par g.David
col = Range("A1").End(xlToRight).Column
lig = Range("A1").End(xlDown).Row
proie = Range("o1").Value
With Worksheets(1).Range(Cells(1, 1), Cells(lig, col))
Set c = .Find(proie, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
p = p + 1
Sheets(2).Cells(p, 1).Value = c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub