Sub lancer()
Randomize
bas = [A1000].End(3).Row
If bas < 2 Then bas = 2
If bas > 10 Then [A3:A11].ClearContents: bas = 3
Do
n = Int((99 * Rnd) + 1) 'choix chiffre de 1 à 99
For lig = 3 To bas
If Cells(lig, 3) = n Then deja = True
Next
If deja = True Then
deja = False
Else
Exit Do
End If
Loop
Cells(bas + 1, 1) = n
fin = n + 99
For i = n To fin 'n + 99
If i Mod 5 = 0 Then attente = attente + 0.014
If i > fin - 2 Then attente = 0.6
deb = Timer
Do While Timer < deb + attente
DoEvents
Loop
nb = i
If nb > 99 Then nb = nb - 99
[F6] = nb - 1
[F7] = nb
[F8] = nb + 1
Next
End Sub