Sub palettes()
Dim col, i As Byte
col = Array("noir", "blanc", "rouge", "vert brillant", "bleu", "jaune", "rose", "turquoise", "rouge foncé", "vert", "bleu foncé", "marron clair", "violet", "bleu-vert", "gris 25%", "gris 50%", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "-----", "bleu ciel", "turquoise clair", "vert clair", "jaune clair", "bleu moyen", "rose saumon", "lavande", "brun", "bleu clair", "vert d'eau", "citron vert", "or", "orange clair", "orange", "bleu gris", "gris 40%", "bleu-vertfoncé", "vert marin", "vert foncé", "vert olive", "marron", "prune", "indigo", "gris 80%")
Application.ScreenUpdating = False
For i = LBound(col) To UBound(col)
Select Case i
Case 0 To 13
Cells(i + 1, 1) = i + 1
Cells(i + 1, 1).Font.Bold = True
Cells(i + 1, 2).Interior.ColorIndex = i + 1
Cells(i + 1, 3) = UCase(col(i))
Case 14 To 27
Cells(i - 13, 4) = i + 1
Cells(i - 13, 4).Font.Bold = True
Cells(i - 13, 5).Interior.ColorIndex = i + 1
Cells(i - 13, 6) = UCase(col(i))
Case 28 To 41
Cells(i - 27, 7) = i + 1
Cells(i - 27, 7).Font.Bold = True
Cells(i - 27, 8).Interior.ColorIndex = i + 1
Cells(i - 27, 9) = UCase(col(i))
Case 42 To 55
Cells(i - 41, 10) = i + 1
Cells(i - 41, 10).Font.Bold = True
Cells(i - 41, 11).Interior.ColorIndex = i + 1
Cells(i - 41, 12) = UCase(col(i))
End Select
Next
Columns("A:L").AutoFit
Range("B:B,E:E,H:H,K:K").ColumnWidth = 2.17
Range("C:C,F:F,I:I,L:L").ColumnWidth = 18.83
Range("A1:L14").Borders.LineStyle = xlContinuous
Application.ScreenUpdating = True
End Sub
