Dim BORNE1, BORNE2, N(7), COMPLEMENTAIRE As Integer
Dim BORNE1_ANALYSE As Integer
Dim BORNE2_ANALYSE As Integer
Dim DERNIERELIGNEGROUPE As Long
Dim NG(6) As Integer
Dim DERNIERELIGNECOMBI As Long
Dim NBAPPARITIONDEMANDEE As Integer
Dim NBAPPARITIONMAX As Integer
Dim TAB_GROUPES(140000, 6) As Long ' 140000 suffisant pour 4000 tirages sur combinaison à 4 avec le complémentaire sans aucune répétition de groupe à 4
Dim INDICE_TAB_GROUPES As Long
Dim TAB_TIRAGES(8000, 7) As Integer
Dim INDICE_TAB_TIRAGES As Integer
Dim mINDICE_DEBUT As Integer
Dim mINDICE_FIN As Integer
Dim mCONSERVES As Long
je ne sait pas c'est un tableau ou je ne suis pas l'auteur