Private Sub UserForm_Initialize() VBAMENU1.Caption = "Fichier" VBAMENU1.AddMenu "Charger", "mnuCharger" VBAMENU1.AddMenu "Sauver", "mnuSauver" VBAMENU1.AddMenu "Quitter", "mnuClose" End Sub Private Sub VBAMENU1_MenuClick(MenuItem As MenuControl.clsMenu) Select Case MenuItem.Caption Case "Charger" Call charger_click Case "Sauver" Call sauver_click Case "Quitter" Call Quitter_Click End Select End Sub