Générer toutes combinaisons possibles Euromillions dans Excel

=COMBIN(50;5)*COMBIN(12;2)

Sub Trouver_combinaisons()
    Dim Lig As Long, Col As Long, i As Double, q As Double
    Dim Val_1 As Long, Val_2 As Long, Val_3 As Long, Val_4 As Long, Val_5 As Long
    Dim Combi
    Dim Dep As Date
    Cells.ClearContents
    Application.ScreenUpdating = False
    Deb = Timer
    'rechecherche des combinaisons avec 2 valeurs étoiles
    Trouver_combinaisons_2_Etoiles
    
    'rechecherche des combinaisons avec 5 valeurs
    Combi = ",1,2,3,4,5"
    Lig = 1
    Col = 2
    Dep = 1
    
    ReDim Result(60536) As String
    q = 1
    For i = 1 To 2118760 'Nombre maximal de combinaisons de tirage de 5 sur 50
        If q = 1 Then Deb_Combi = Combi
        Combi = Split(Combi, ",")
            Val_1 = Combi(1) * 1
            Val_2 = Combi(2) * 1
            Val_3 = Combi(3) * 1
            Val_4 = Combi(4) * 1
            Val_5 = Combi(5) * 1
        If Val_5 < 50 Then
            Val_5 = Val_5 + 1
        Else
            If Val_4 < 49 Then
                Val_4 = Val_4 + 1
                Val_5 = Val_4 + 1
            Else
                If Val_3 < 48 Then
                    Val_3 = Val_3 + 1
                    Val_4 = Val_3 + 1
                    Val_5 = Val_4 + 1
                Else
                    If Val_2 < 47 Then
                        Val_2 = Val_2 + 1
                        Val_3 = Val_2 + 1
                        Val_4 = Val_3 + 1
                        Val_5 = Val_4 + 1
                    Else
                        If Val_1 < 46 Then
                            Val_1 = Val_1 + 1
                            Val_2 = Val_1 + 1
                            Val_3 = Val_2 + 1
                            Val_4 = Val_3 + 1
                            Val_5 = Val_4 + 1
                        End If
                    End If
                End If
            End If
        End If
        Result(q) = Val_1 & "," & Val_2 & "," & Val_3 & "," & Val_4 & "," & Val_5
        Combi = "," & Result(q)
        If i Mod 60536 = 0 Then
            Range(Cells(2, Col), Cells(60537, Col)) = Application.WorksheetFunction.Transpose(Result)
            Col = Col + 1
            Erase Result
            ReDim Result(q) As String
        End If
        If q = 60536 Then
            Cells(2, Col - 1) = Right(Deb_Combi, Len(Deb_Combi) - 1)
            q = 1
        Else
            q = q + 1
        End If
    Next i
    Range("A1").Value = "Combinaisons des numéros du tirage ""Etoiles"""
    Range("F1").Value = "Combinaisons du tirage des 5 numéros"
    MsgBox "Recherche terminée, temps d'exécution:" & Timer - Deb & "Sec"
End Sub

Sub Trouver_combinaisons_2_Etoiles()
    Dim Lig As Long, Col As Long, i As Long
    Dim Val_1 As Long, Val_2 As Long
    Dim Combi
    Application.ScreenUpdating = False
    
    'rechecherche des combinaisons avec 5 valeurs
    Combi = "_1_2"
    Lig = 2
    Col = 1
    Cells(1, Col) = Combi
    ReDim Result(66) As String
    For i = 1 To 65 'Nombre maximal de combinaisons de tirage de 2 sur 12 -1
        Combi = Split(Combi, "_")
            Val_1 = Combi(1) * 1
            Val_2 = Combi(2) * 1
        If Val_2 < 12 Then
            Val_2 = Val_2 + 1
        Else
            If Val_1 < 11 Then
                Val_1 = Val_1 + 1
                Val_2 = Val_1 + 1
            End If
        End If
        Lig = Lig + 1
        Result(i) = Val_1 & "_" & Val_2
        Combi = "_" & Result(i)
    Next i
    Range(Cells(2, Col), Cells(667, Col)) = Application.WorksheetFunction.Transpose(Result)
    Cells(2, Col) = "1_2"
End Sub