Sub couleurs()
Dim i As Integer
Dim couleur
i = 1
With Feuil2
For Each couleur In ThisWorkbook.Colors
Range("a" & i) = couleur
Range("b" & i).Interior.Color = couleur
i = i + 1
Next couleur
End With
End Sub
Je me suis contenté d'utiliser une boucle For Each pour parcourir toutes les couleurs de la collection Colors du classeur dans lequel le programme est codé.
Saches que tu peux utiliser RGB(rouge, vert, bleu)
avec rouge, vert et bleu variants de 0 à 255, la valeur fournie par colors est simplement un calcul: rouge^3 + vert^2 + bleu^1 (si je ne me trompe pas).