Combien de combinaisons possibles de 5 chiffr

For i = 1 To 15
z = 0
    For j = 1 To 15
    If j > i Then
        For k = 1 To 15
        If k <> j And k <> i And k > j Then
            For l = 1 To 15
            If l <> k And l <> j And l <> i And l > k Then
                For m = 1 To 15
                If m <> l And m <> k And m <> j And m <> i And m > l Then
                    z = z + 1
                    Cells(z, i).Value = i & "  " & j & "  " & k & "  " & l & "  " & m
                End If
                Next m
            End If
            Next l
        End If
        Next k
    End If
    Next j
Next i

For i = 1 To 15
z = 0
    For j = 1 To 15
        For k = 1 To 15
            For l = 1 To 15
                For m = 1 To 15
                    z = z + 1
                    Cells(z, i).Value = i & "-" & j & "-" & k & "-" & l & "-" & m
                Next m
            Next l
        Next k
    Next j
Next i

For i = 1 To 15
z = 0
    For j = 1 To 15
    If j <> i Then
        For k = 1 To 15
        If k <> j And k <> i Then
            For l = 1 To 15
            If l <> k And l <> j And l <> i Then
                For m = 1 To 15
                If m <> l And m <> k And m <> j And m <> i Then
                    z = z + 1
                    Cells(z, i).Value = i & "  " & j & "  " & k & "  " & l & "  " & m
                End If
                Next m
            End If
            Next l
        End If
        Next k
    End If
    Next j
Next i