Option Explicit
Private HOT As Date
Sub Recalculer()
Dim T(1 To 20, 1 To 5), L&, C&
Randomize
For L = 1 To 20: For C = 1 To 5
T(L, C) = Int(Rnd * 17 + 4): Next C, L
Feuil1.[A1:E20].Value = T
HOT = Now + TimeSerial(0, 0, 1)
Application.OnTime HOT, "Recalculer"
End Sub
Sub ArrêterCalcul()
If HOT = 0 Then Exit Sub
On Error Resume Next
Application.OnTime HOT, "Recalculer", Schedule:=False
HOT = 0
End Sub