bonjour Yannis
ci dessous exemple à adapter et à inclure dans la boucle de copie automatique pour le remplissage couleur
'cellule A1 de la feuille 1 en rouge
Worksheets("feuil1").Cells(1, 1).Interior.Color = RGB(255, 0, 0)
'cellule A2 de la feuille 1 en bleu
Worksheets("feuil1").Cells(2, 1).Interior.Color = RGB(0, 0, 255)
A plus sur le forum
PAPYG