Bonjour,
S'agissant du nombre de combinaisons de 5 nombres parmi 20, leur nombre se monte à 15 504, ce qui reste honnête,et facilement listable au moyen d'une quintuple boucle :
Sub ListerCombi()
Dim a%, b%, c%, d%, e%, lg&, cmbi
For a = 1 To 16
For b = a + 1 To 17
For c = b + 1 To 18
For d = c + 1 To 19
For e = d + 1 To 20
cmbi = Array(a, b, c, d, e)
ActiveSheet.Cells(lg, 1).Resize(, 5).Value = cmbi
lg = lg + 1
Next e
Next d
Next c
Next b
Next a
End Sub
Mais si tu parles de permutations, chaque combinaison en génère 120, et tu en auras au total : 1 860 480, ce qui commence à être un peu plus lourd ! On dépasse déjà largement le nombre de lignes d'une feuille.
Et l'intérêt d'une telle liste étant en tout état de cause discutable, il serait à mon sens préférable que tu indiques plutôt quel est ton objectif...
Cordialement.