Modification boucle et test dans une macro.

Sub Alea()
Dim i As Integer
i = 0
'Application.ScreenUpdating = False
lig = 6
retour:
For i = 1 To 100
Randomize
Set dico = CreateObject("Scripting.dictionary")
While dico.Count < 8
x = Int((10 * Rnd) + 1)
dico(x) = x
Wend
Range("G" & lig).Resize(, 8) = dico.keys
If lig = 6 And Range("U6").Value < 4 Then GoTo 1
If lig = 5 And Range("U5").Value < 4 Then GoTo 2
If lig = 4 And Range("U4").Value < 4 Then GoTo 3
Exit Sub
Next i
1:
lig = 5: GoTo retour
2:
lig = 4: GoTo retour
3:
Exit Sub
'Next lig
'Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...