Private Sub UserForm_Activate()
For compteur = 3 To 0 Step -1
userform1.repaint
TextBox1.Value = compteur
'Pour exécuter la macro dans 3 secondes!!!
nouvHeure = Hour(Now())
nouvMinute = Minute(Now())
nouvSeconde = Second(Now()) + 1
Reprise = TimeSerial(nouvHeure, nouvMinute, nouvSeconde)
Application.Wait Reprise
Next
If TextBox1 = 0 Then
Unload Me
ActiveWorkbook.Close
End If
End Sub