Ecrire toutes les combinaisons

Bonsoir,

A partir d'une base grisée de 5 lignes de nombres, je voudrais créer toutes les combinaisons possibles en N1: R ? avec pas plus d'un nombre par ligne dans la combinaison écrite.

merci

Bonsoir,

une proposition via une macro

Sub vasy()
    Dim a(20, 10) As Integer, c(5) As Integer
    i = 1
    While Cells(i, 1) <> ""
        j = 1
        While Cells(i, j) <> ""
            a(i, j) = Cells(i, j)
            a(i, 0) = j
            j = j + 1
        Wend
        i = i + 1
    Wend
    combine a, c, 1, s%
End Sub
Sub combine(a() As Integer, c() As Integer, n%, s)
    For i = 1 To a(n, 0)
        c(n) = a(n, i)
        If n = 5 Then
            s = s + 1
            For j = 1 To 5
                Cells(s, 13 + j) = c(j)
            Next j
        Else
            combine a, c, n + 1, s
        End If
    Next i
End Sub

Bonjour

Désolé pour mon retard, merci beaucoup.

A++