installer une combobox dans la barre d'outils

Sub auto_open()
  On Error Resume Next
  Set Barre = CommandBars.Add
  Barre.Name = "BarreFeuilles"
  Barre.Visible = True
  Set Menu = Barre.Controls.Add(msoControlComboBox)
  For i = 1 To Sheets.Count
      Menu.AddItem Sheets(i).Name
  Next
  Menu.OnAction = "ChoixFeuille"
  Menu.Text = "Sélectionner puis choisir"
End Sub

Sub auto_close()
  On Error Resume Next
  CommandBars("BarreFeuilles").Delete
End Sub

Sub ChoixFeuille()
  Sheets(CommandBars("BarreFeuilles").Controls(1).Text).Select
End Sub