Excel VBA: colorier les cellules d'un tableau

Bonjour à tous,

Débutant sur Excel, je souhaite développer un petit outil.
Le principe est le suivant, je souhaite colorié un tableau numéroté de 1 à nombre_de_case par intervalle voulu.

J'ai réussi (aprés de nombreuses heures!) à numéroter le tableau d'un nombre de lignes "Nb_ligne" et d'un nombre de colonnes "Nb_colonnes" (le tableau démarre à "Q1"):

Private Sub cmd_tri_Click()

Dim Nb_ligne As Double
Dim Nb_colonne As Double
Dim Nb_intervalle As Double
Dim Nl As Integer
Dim Nc As Integer
Dim i As Integer

Nb_ligne = Range("E22")
Nb_colonne = Range("E21")
Nb_intervalle = Range("E24")

i = 1
j = 1
Nc = 16
For i = 1 To Nb_ligne
For Nc = 1 To Nb_colonne
For Nl = 1 To Nb_ligne
Sheets("feuil1").Cells(Nl, 16 + Nc) = i
i = i + 1
Next Nl
Next Nc
Next i

End Sub

Par exemple, pour Nb_ligne = 3 et Nb_colonnes =3, j'obtiens:

1 4 7
2 5 8
3 6 9


je veux maintenant colorier les cases par ordre croissant. Par exemple, pour un tableau de 5 lignes et 6 colonnes, je veux colorier le tableau en 15 couleurs (Nb_intervalle=15) en regroupant par couleur 1 et 2, 3 et 4, 5 et 6...

J'espère avoir été clair!!
Connaissez-vous une fonction ou une méthode qui pourrait me venir en aide?

Merci