Re : couleur
Bonsoir eBe,
Voici le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Column <> 2 Then Exit Sub
Set c = Sheets("Données").Range("Liste").Find(Target)
If Not c Is Nothing Then
Target.Interior.ColorIndex = c.Interior.ColorIndex
End If
End Sub
---------------------------
Avec "Donnée" le nom de ta feuille où se situe tes données
Avec "Liste" le nom de ta liste
Amicalement
feutrine