Private Sub Workbook_Open()
Public CmdBar1 As CommandBar
Dim Bouton As CommandBarButton
Dim Menu As CommandBarComboBox
Dim ws As Object
Call bibi
'Barre de Suivi Budgétaire
Set CmdBar1 = Application.CommandBars.Add(Name:="Budget", Position:=msoBarTop, Temporary:=True)
Set Bouton = CmdBar1.Controls.Add(Type:=msoControlButton)
With Bouton
.BeginGroup = True
.Style = msoButtonIconAndCaption
.FaceId = 1820
.Caption = "Afficher / Masquer"
.TooltipText = "Afficher / Masquer les feuilles"
.OnAction = "Masquer"
End With
Set Menu = CmdBar1.Controls.Add(msoControlComboBox)
For i = 1 To CpteFV
Menu.AddItem Feuille(i)
Next
With Menu
.BeginGroup = True
.Style = msoComboLabel
.Caption = "Onglets:"
.TooltipText = "Accès Onglets"
.DropDownWidth = -1
.OnAction = "Choix_Onglets"
End With
End Sub