Private Sub Workbook_Open()
Dim PauseTime, Start, Finish, TotalTime
Début:
MsgBox "Coucou"
PauseTime = 60 ' Définit la durée en secondes.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
DoEvents ' Donne le contrôle à d'autres processus.
Loop
GoTo Début
End Sub