Sub ListingCouleur() Dim Col As Long, Lig As Long
For Col = 1 To 3
For Lig = 1 To 3
' Inscrire dans la feuille 2 la couleur de la cellule de la feuille 1
Worksheets("Feuil2").Cells(Lig, Col).Interior.Color = Worksheets("Feuil1").Cells(Lig, Col).Interior.Color
Next Lig
Next Col
End Sub