Sub recherche()
Dim l&, m$
m = InputBox("Merci de saisir le mot recherché")
On Error GoTo Suite
With Feuil1
.Cells.Interior.ColorIndex = xlNone
.Cells.Font.Bold = 0
l = Application.Match(m, .Columns(3), 0)
.Cells(l, 1).Resize(, 5).Interior.ColorIndex = 6
.Cells(l, 1).Resize(, 5).Font.Bold = -1
.Activate
End With
Suite:
End Sub