Sub cherche()
Dim c As Range
Dim r As Range
Set r = Range("A1:A50")
Quoi = InputBox("Quelle est la valeur recherchée?")
For Each c In r
If c Like Quoi Then
With c
.Font.Bold = True
.BorderAround ColorIndex:=3, Weight:=xlThick
End With
End If
Next
End Sub