Re,
Bonjour Teten1,
Le détail de la procédure évènementielle.
Cdlt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
If Target.Address = "$C$2" Then
If IsEmpty(Target) Then
Target.Interior.Color = xlNone
Else
With Me.ListObjects(1).Range
Set Cell = .Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
End With
Target.Interior.Color = Cell.Interior.Color
End If
End If
End Sub