Sub test_find()
Dim SText As String
Dim Cel As Range
SText = Chr(42) & "2 Engineering & Design"
Set plg = Range("B1:B" & [B65536].End(xlUp).Row)
Set Cel = plg.Find(SText, LookIn:=xlValues)
If Not Cel Is Nothing Then
FF = Cel.Address
Do
Message = _
Message _
& "Valeur trouvée en cellule : " _
& Cel.Address(0, 0) & Chr(13)
Set Cel = plg.FindNext(Cel)
Loop While Not Cel Is Nothing And Cel.Address <> FF
End If
MsgBox Message, vbInformation, "RESULTATS pour : " & SText
End Sub