Option Explicit
Private Sub Worksheet_Change(ByVal c As Range) ' code de l'onglet "LDéroulante"
Dim cc As Range
If Not Intersect(c, Range("b3:b9")) Is Nothing Then
Set cc = Sheets("LNom").[b3:b14].Find(c, LookIn:=xlValues, LookAt:=xlWhole)
If Not cc Is Nothing Then c.Font.Color = cc.Font.Color
End If
End Sub