Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub toto()
Dim x As Integer, NbT As Integer, Y As Long, NBb As Integer
With ActiveSheet
.Shapes("START").Visible = False
Range("B1:[COLOR="#FF0000"]B30[/COLOR]").ClearContents
NbT = 1: NBb = [NBbilles]
Y = [Delai]
Randomize
While [fini] = False
x = Int(1 + Rnd() * NBb)
.Cells(x, 2) = .Cells(x, 2) + 1
[BILLE] = x
DoEvents
NbT = NbT + 1
Sleep Y
Wend
.Shapes("START").Visible = True
End With
End Sub