Bonjour
15504 combinaisons
Sub combinaisons()
ligne = 2
For i = 1 To 16
For j = i + 1 To 17
For k = j + 1 To 18
For l = k + 1 To 19
For m = l + 1 To 20
Cells(ligne, 1) = i
Cells(ligne, 2) = j
Cells(ligne, 3) = k
Cells(ligne, 4) = l
Cells(ligne, 5) = m
ligne = ligne + 1
Next
Next
Next
Next
Next
End Sub