Public flag As Boolean 'mémorise la variable
Sub Aleatoire()
Dim delai, t
If [F7] = "" Then [F7] = 1
delai = 10 * [F7] 'secondes
flag = False
Randomize
[D5] = Int((1 + 10 * [F7]) * Rnd)
[F5] = Int((1 + 10 * [F7]) * Rnd)
1 [H5].Select
ActiveCell = "" 'Efface le résultat précédemment saisi
t = Now + delai / 86400
Do While Now < t
DoEvents
If flag Then Exit Sub 'arrêt du processus
If [H5] <> "" Then
If [H5] <> [D5] + [F5] Then MsgBox "TU AS FAIT UNE ERREUR, ESSAYE DE CORRIGER", 48: [B9] = [B9] + 1: GoTo 1
MsgBox "BRAVO ! TU AS TROUVÉ LE BON RESULTAT, ON CONTINUE !": [B7] = [B7] + 1: GoTo 2
End If
Loop
MsgBox "TON TEMPS EST DEPASSÉ, ON CONTINUE !"
2 Application.OnTime 1, "Aleatoire" 'relance le processus
End Sub