Cocher des cellules sous conditions

Bonjour j'espère que vous allez bien tous!

Voilà après une longue analyse je me rends compte que ça devient très compliqué!

je souhaite cocher des cases dans un tableau excel selon les couleurs des entêtes !

c'est à dire dans la colonne A j'ai des données colorés, chaque couleur correspond à un entête...

bon je crois un exemple fera l'affaire de mieux expliqué le besoin.

Merci pour votre aide.

Bonsoir peerl , le forum,

Un essai....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim lig As Integer, col As Integer
  For lig = 2 To 6
   For col = 2 To 5
     Cells(lig, col) = IIf(Cells(lig, 1).Interior.Color = Cells(1, col).Interior.Color, "X", "")
   Next col
  Next lig
End Sub

Cordialement,

MERCI bien ça à l'air de fonctionner après comme j'ai bcp de lignes ( + 2000 ) ça met du temps mais je crois que c'est normal le temps de charger et faire ligne par ligne... !!