ce qui représente en tout 15504 combinaisons différentes
Sub Test()
Dim Tjn(1 To 5) As String, C1&, C2&, C3&, C4&, C5&, CR&, TRésu(1 To 1, 1 To 15504)
For C1 = 1 To 16: Tjn(1) = C1
For C2 = C1 + 1 To 17: Tjn(2) = C2
For C3 = C2 + 1 To 18: Tjn(3) = C3
For C4 = C3 + 1 To 19: Tjn(4) = C4
For C5 = C4 + 1 To 20: Tjn(5) = C5
CR = CR + 1
TRésu(1, CR) = Join(Tjn, ",")
Next C5, C4, C3, C2, C1
[U1].Resize(, 15504).Value = TRésu
End Sub
Bon et bien encore merci , mais je ni comprend rien en vba je vais faire comment moi qui veus faire cela sur environ 125 000 lignes sur 15504 colonnes