Sub Permutations()
Dim a, ub, sep$, r As Range, m, n, o, p, q
a = Array(1, 25, 55, 70, 95) 'tableau modifiable
ub = UBound(a)
sep = ", " 'séparateur, à adapter
Set r = [A1] '1ère cellule remplie, à adapter
For m = 0 To ub
For n = 0 To ub
If n = m Then GoTo 1
For o = 0 To ub
If o = m Or o = n Then GoTo 2
For p = 0 To ub
If p = m Or p = n Or p = o Then GoTo 3
For q = 0 To ub
If q = m Or q = n Or q = o Or q = p Then GoTo 4
r = a(m) & sep & a(n) & sep & a(o) & sep & a(p) & sep & a(q)
Set r = r(2)
4 Next q
3 Next p
2 Next o
1 Next n
Next m
End Sub