Bonjour
Déjà, pour un amateur comme moi en VBA, c'est difficile alors, sans VBA, je ne sais pas.
En VBA
Dans un Module, le Code permettant de récupérer la couleur des éléments de la liste en colonne B de Feuil3
Function Couleur(CL As Range) As Long
Couleur = CL.Interior.ColorIndex
End Function
Et Code de Feuil2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Code = Application.Index(Sheets("Feuil3").Range("B:B"), Application.Match(Target.Value, Sheets("Feuil3").Range("A:A"), 0))
'MsgBox Code
Target.Interior.ColorIndex = Code
End If
End Sub
Cordialement