Bonjour,
 
Est-il possible d'alimenter une plage de couleurs grace à une variable tableau, de manière à éviter une boucle sur toutes les cellules ?
Quand je teste, la plage est alimentée uniquement par le 1er index.
 
Sub Couleur()
Dim tblocouleur() As Variant
Dim tblocouleurligne(2, 5) As Variant
Dim i As Byte
Dim j As Byte
Dim k As Byte
 
tblocouleur = Array ("1", "3", "5", "4", "6", "6", "4", "1", "3", "5" )
k = 1
For i = 1 To UBound(tblocouleurligne, 1)
    For j = 1 To UBound(tblocouleurligne, 2)
        tblocouleurligne(i, j) = tblocouleur(k)
k = k + 1
Next j
Next i
 
Range("A1:E2" ).interior.colorIndex = tblocouleurligne
 
Merci pour votre aide.