Private Sub CommandButton1_Click() 'bouton tri aléatoire
Dim x As Byte
Dim y As Byte
Dim a As Byte, b As Byte, c As Byte, d As Byte
Dim tr() As Integer
For x = 1 To 10 'boucle sur les 10 tris (de 2 à 11)
y = (3 * x) + 2 'définit la ligne où placer les données
debut:
Randomize 'lance le générateur de nombres aléatoires
a = Int((4 * Rnd) + 1) 'définit le nombre a aléatoirement
b: 'étiquette "b"
b = Int((4 * Rnd) + 1) 'définit le nombre b aléatoirement
If b = a Then GoTo b 'si b=a va à l'étiquette b
c: 'étiquette "c"
c = Int((4 * Rnd) + 1) 'définit le nombre c aléatoirement
If c = b Or c = a Then GoTo c 'si c=a ou c=b va à l'étiquette c
d: 'étiquette "d"
d = Int((4 * Rnd) + 1) 'définit le nomnre b aléatoirement
If d = c Or d = b Or d = a Then GoTo d 'si d=a ou d=b ou d=c, va à l'étiquette d
Cells(y, a + 1) = Cells(2, 2) 'place la valeur de la cellule B2
Cells(y, b + 1) = Cells(2, 3) 'place la valeur de la cellule C2
Cells(y, c + 1) = Cells(2, 4) 'place la valeur de la cellule D2
Cells(y, d + 1) = Cells(2, 5) 'place la valeur de la cellule E2
ReDim Preserve tr(x - 1)
tr(x - 1) = 1000 * a + 100 * b + 10 * c + d
For i = 0 To UBound(tr)
If i <> x - 1 And (1000 * a) + (100 * b) + (10 * c) + d = CInt(tr(i)) Then GoTo debut
Next i
Next x 'prochain tri de la boucle
End Sub