Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Set Cel = Feuil2.[B2:B14].Find(What:=Target.Value, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Cel Is Nothing Then Exit Sub
Target.Interior.Color = Cel.Interior.Color
End Sub