Colonne de chiffres aléatoires sans répétition immédiate

Bonjour,

Je cherche le moyen d'avoir une liste aléatoire de chiffres allant de 0 à 10, sur 60 lignes, sans voir 2 chiffres identique l'un après l'autre.

Dans l'exemple suivant le 7 et suivi d'un 7, ainsi que le 5, or je voudrai qu'un seul des chiffres apparaisse.

Merci

2

1

6

8

9

4

5

8

7

7

6

8

9

7

4

5

5

3

1

2

6

4

Bonjour,

à tester,

Sub test()
Cells(1, 1) = Application.RandBetween(1, 10)
k1 = Cells(1, 1)
For i = 2 To 60
    Do
        k2 = Application.RandBetween(1, 10)
        If k1 <> k2 Then Check = True
    Loop Until Check = True    ' Si vrai: Quitte la boucle Do
    Check = False
    k1 = k2
    Cells(i, 1) = k2
Next i
End Sub

Chapeau...Parfait

Merci

Merci pour ce retour, bonne continuation!