Dim Temps1, Temps2
Sub Depart1()
Temps1 = Now + TimeValue("00:00:05")
Application.OnTime Temps1, "Macro1"
Depart2
End Sub
Sub Macro1()
MsgBox "me revoilou"
Depart1
End Sub
Sub Depart2()
Temps2 = Now + TimeValue("00:00:02")
Application.OnTime Temps2, "Macro2"
End Sub
Sub Macro2()
MsgBox "coucou"
End Sub
Sub Stopmacro()
On Error Resume Next
Application.OnTime Temps1, "Macro1", , False
Application.OnTime Temps2, "Macro2", , False
End Sub