les couleurs d'arrière-plan

Sub Couleurs()
Application.ScreenUpdating = False
Dim I, J, K
While Worksheets.Count < 9
   Sheets.Add After:=Sheets(Sheets.Count)
Wend
For I = 0 To 256 Step 32
    For J = 0 To 256 Step 32
        For K = 0 To 256 Step 32
            Sheets(K / 32 + 1).Cells(I / 32 + 1, J / 32 + 1) = "R" & I & "-G" & J & "-B" & K
            Sheets(K / 32 + 1).Cells(I / 32 + 1, J / 32 + 1).Interior.Color = RGB(I, J, K)
        Next K
    Next J
Next I
Application.ScreenUpdating = True
End Sub