Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2")) Is Nothing Then: Exit Sub
Cells.Interior.ColorIndex = xlNone
On Error Resume Next
Range(Columns(1).Find(Range("B2").Value, Range("A65536"), , xlWhole, xlByRows).Address).Select
If Err Then
MsgBox "valeur inconnue"
Exit Sub
End If
Rows(ActiveCell.Row).Interior.ColorIndex = 6 'jaune
End Sub