Sub alea()
Dim j As Byte
For j = 4 To 56
retour:
Randomize
nb_alea_1 = Int((10 * Rnd) + 4)
Randomize
nb_alea_2 = Int((10 * Rnd) + 4)
Randomize
nb_alea_3 = Int((10 * Rnd) + 4)
If nb_alea_1 = nb_alea_2 Or nb_alea_1 = nb_alea_3 Or nb_alea_2 = nb_alea_3 Then
GoTo retour
Else
Cells(3, j).Value = 'Semaine ' & j
Cells(4, j).Value = Cells(nb_alea_1, 2).Value
Cells(5, j).Value = Cells(nb_alea_2, 2).Value
Cells(6, j).Value = Cells(nb_alea_3, 2).Value
End If
Next j
End Sub