Bonsoir
solution via une macro, (temps de calcul proportionnel aux nombres de combinaisons possibles !)
Dim a As Variant, sol
Sub combine()
ReDim a(100)
sol = 0
premier_nombre = 1 ' à adapter éventuellement
dernier_nombre = 13 ' à adapter éventuellement
nombres_à_prendre = 12 ' à adapter éventuellement
genere premier_nombre, dernier_nombre, nombres_à_prendre
End Sub
Sub genere(first, last, number, Optional n = 1)
For i = first To last - number + n
a(n) = i
If n = number Then
sol = sol + 1
s = ""
sep = ""
For j = 1 To number
s = s & sep & a(j)
If s <> "" Then sep = "+"
Next j
Cells(sol, 1) = s ' résultats en colonne A et B
Cells(sol, 2).Formula = "=" & s
Else
genere i + 1, last, number, n + 1
End If
Next i
End Sub