' Déclenchement d'une macro nommée "Test" à 9 Heures
Application.OnTime TimeValue("09:00:00"), "Test"

' Déclenchement d'une macro nommée "Test" dans 5 secondes
Application.OnTime Now + TimeValue("00:00:05"), "Test"

' Déclenchement d'une macro nommée "Test" lorsque l'utilisateur appuie sur "F3"
Application.OnKey "{F3}", "Test"

' Réduire Excel
Application.WindowState = xlMinimized
xlMinimized peut être remplacé par xlNormal ou xlMaximized

' Réduire un classseur
Windows("NomDuClasseur").WindowState = xlMaximized

' Plein ecran
Application.DisplayFullScreen = True

' Fermer Excel
Application.Quit

' Désactiver le rafraichissement de l'écran (ne pas oublier de le réactiver après traitement)
Application.ScreenUpdating = False

	
' Actualiser tous les calculs (formules et fonctions) d'Excel
Application.Calculate

'Demander à une Macro d'attendre 4 secondes avant de continuer :
MsgBox "Radio Galaswinda bonjour !"
Application.Wait Now + TimeValue("00:00:04")
MsgBox "Eh bien bonjour, il fait une journée splendide, l'eau est à 23 degrés,
on annonce de la neige pour cet après midi et si vous vous baignez, couvrez vous bien !"

'Exécute une procédure monmessage qui se trouve dans un autre classeur
Application.Run "Classeur2.xlsm!monmessage"

'Déclancher une procédure si "oui" dans une cellule (procédure évènementielle sur feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
' Une procédure évènementielle (dans le module d'une feuille)
' Target est une variable à utiliser

If (Target.Value = "oui") Then
MsgBox "ok" ' ou appel d'une procédure distante
Else: Exit Sub
End If
End Sub

'Déclancher une action si "oui" dans cellule A1 (procédure évènementielle sur feuille)

Private Sub Worksheet_Activate()
If (Range("A1").Value = "oui") Then
MsgBox "ok"
End If
End Sub