une petite macro pour les nostalgiques (merci J. Walkenbach)

Sub [URL="http://spreadsheetpage.com/index.php/tip/old_style_menus_in_excel_2007/"]MakeOldMenus[/URL]()
   Dim cb As CommandBar
   Dim cbc As CommandBarControl
   Dim OldMenu As CommandBar

'  Delete it, if it exists
   On Error Resume Next
   Application.CommandBars("Old Menus").Delete
   On Error GoTo 0

'  Create an old-style toolbar
'  Set the last argument to False for a more compact menu
   Set OldMenu = Application.CommandBars.Add("Old Menus", , True)

'  Copy the controls from Excel's "Built-in Menus" shortcut menu
'traduction pour un Excel français
   With CommandBars("Built-in Menus")
     .Controls("&Fichier").Copy OldMenu
     .Controls("&Edition").Copy OldMenu
     .Controls("&Affichage").Copy OldMenu
     .Controls("&Insertion").Copy OldMenu
     .Controls("F&ormat").Copy OldMenu
     .Controls("&Outils").Copy OldMenu
     .Controls("&Données").Copy OldMenu
     .Controls("&Fenêtre").Copy OldMenu
     .Controls("&?").Copy OldMenu
   End With

'   Make it visible. It appears in the Add-Ins tab
   Application.CommandBars("Old Menus").Visible = True
End Sub