Combinaison de p élément parmi n

Sub combi()
x = 1
For a = 1 To 6
For j = 1 To 6
If j <> a Then b = j
For k = 1 To 6
If k <> a And k <> b Then c = k
For l = 1 To 6
If l <> a And l <> b And l <> c Then d = l
For m = 1 To 6
If m <> a And m <> b And m <> c And m <> d Then nomb = a & b & c & d & m
If Len(nomb) = 5 And Application.WorksheetFunction.CountIf(Range("A1:A" & x), nomb) = 0 Then x = x + 1: Range("A" & x) = a & b & c & d & m
Next m
Next l
Next k
Next j
Next a
'tri
Columns("A:A").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:A7558")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub