XL 2013 Résultat liste déroulante gardant la mise en forme "Gras"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim PL As Range
Dim CEL As Range

If Target.Address <> "$C$6" Then Exit Sub
With Target.Validation
    Set PL = Range(Mid(.Formula1, 2))
End With
For Each CEL In PL
    If CEL.Value = Target.Value Then Target.Font.Bold = CEL.Font.Bold: Exit For
Next CEL
End Sub

Private Sub Worksheet_Change(ByVal R As Range)
If R.Address = "$C$6" And R(1) <> "" Then R.Font.Bold = Range(Mid(R.Validation.Formula1, 2)).Find(R, , xlValues, xlWhole).Font.Bold
End Sub