[COLOR=blue]Public stop As Boolean[/COLOR]
sub !!! ()
......
'And
Worksheets("tableau").Select
'and
Dim Pause As Integer, dep As Single
dep = Timer
Pause = 30
Do While Timer < dep + Pause [COLOR=blue]Or stop=true
[/COLOR]DoEvents
Loop
Range("A3") = Range("A3") + Range("L2")
Range("B4") = Range("B4") + Range("L1")
Range("A3").Select
[COLOR=blue]stop=false
[/COLOR]
End Sub
[COLOR=blue]sub Arret()[/COLOR]
[COLOR=blue] stop=True[/COLOR]
[COLOR=blue]End sub[/COLOR]