exemple d'un timer (en sec)
------
Public Secu As String
Sub temps()
Dim Deb
Dim Cc As Integer
UserForm1.Show
Cc = 10
For i = 1 To 10
Deb = timer
Do While timer < Deb + 1
DoEvents
Label2.Caption = Cc 'NomUserform.NomLabel.caption = cc pour avoir le compteur dans une fenêtre
Loop
Cc = (Cc - 1)
Next
UserForm1.Hide
End Sub
----------
fonction pour fermer l'appli
Windows.Application.Quit
pour les changements, je ne sais pas.