Creation de listes aléatoires avec macro

Bonjour à tous,

Je voudrais d'abord generer dans une premiere colonne un nombre de 6 nombres aléatoires parmi 17. J'ai réussi:

Sub Aleatoire()

Dim plage As Range, cel As Range, alea As Double

Set plage = Range("H30:H36")

plage.Value = ""

If plage.Count > 17 Then Exit Sub

Randomize

For Each cel In plage

1 alea = WorksheetFunction.RandBetween(1, 17)

If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea

Next

End Sub

Mais ensuite je voudrais générer dans la colonne d'à côté encore 6 nombres aléatoires compris entre 1 et 17 mais différents de ceux de la première colonne générée . Et là je bloque. Avez vous une solution?

Merci beaucoup.

Bonjour,

Une piste :

Sub Aleatoire()

    Dim Dico As Object
    Dim Cle
    Dim Valeur As Integer
    Dim I As Integer

    Set Dico = CreateObject("Scripting.Dictionary")

    Randomize

    Range("H30:H36").Value = ""
    Range("I30:I36").Value = ""

    Do

        Valeur = Int(Rnd() * (17) + 1)

        Dico(Valeur) = Valeur

    Loop While Dico.Count < 13

    I = 30

    For Each Cle In Dico.Keys

        If I < 36 Then Range("H" & I) = Cle
        If I > 36 Then Range("I" & I - 7) = Cle

        I = I + 1

    Next Cle

End Sub

MERci beaucoup

Et du coup comment faire apparaitre dans une troisième colonne J 30 à 35 les 5 derniers chiffres.

encore merci