VBA--remplacer variables par constantes

Bonjour,

J'ai ce code pour faire d' une série de 9 nombres placés en J1:R1 9 séries de 8 nombres de A2 à H10:

Dim N(9) As Integer

Dim P As Integer

Nt = 9

For i = 1 To 9: N(i) = Cells(1, 9 + i): Next

P = 1

For A = 1 To Nt

For B = A + 1 To Nt

For C = B + 1 To Nt

For D = C + 1 To Nt

For E = D + 1 To Nt

For F = E + 1 To Nt

For G = F + 1 To Nt

For H = G + 1 To Nt

P = P + 1

Range("A" & P) = N(A)

Range("B" & P) = N(B)

Range("C" & P) = N(C)

Range("D" & P) = N(D)

Range("E" & P) = N(E)

Range("F" & P) = N(F)

Range("G" & P) = N(G)

Range("H" & P) = N(H)

Next H

Next G

Next F

Next E

Next D

Next C

Next B

Next A

Peut-on modifier le programme en fonction de mes constantes (plages) fixés ? (pour accélérer le code)

Merci

Un fichier avec exemples de résultats