Sub Macro()
Dim Nt%, col%, N, titres, P&, A%, B%, C%, D%, E%, F%, G%, H%, t(), tablo(), i&, j%
Nt = 9
col = 8
N = Application.Transpose(Application.Transpose([J1].Resize(, Nt)))
titres = [A1].Resize(, col)
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
ReDim Preserve t(1 To col, 1 To P)
t(1, P) = N(A)
t(2, P) = N(B)
t(3, P) = N(C)
t(4, P) = N(D)
t(5, P) = N(E)
t(6, P) = N(F)
t(7, P) = N(G)
t(8, P) = N(H)
Next H
Next G
Next F
Next E
Next D
Next C
Next B
Next A
'---transposition et restitution---
ReDim tablo(1 To P, 1 To col)
For i = 1 To P
For j = 1 To col
tablo(i, j) = t(j, i)
Next
Next
[A:A].Resize(, col).ClearContents 'RAZ
[A1].Resize(P, col) = tablo
[A1].Resize(, col) = titres
End Sub