Option Explicit
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
'Se lance à l'ouverture de l'USF
On Error GoTo Err_Init
'en cas d'erreur excel aller à l'adresse Err_Init
Application.EnableEvents = True
'Bloquer de la gestion des évènements
Sortie_Init: 'adresse de sortie
Application.EnableEvents = True
'déblocage de la gestion des évènements
Exit Sub
'sortir de la macro
Err_Init: 'adresse de la gestion des erreur
MsgBox Err.Description, vbCritical, "Erreur n°" & Err.Number
'boîte d'alerte avec n°erreur et description
Resume Sortie_Init
'continuer à l'adresse Sortie_Init
End Sub