bonjour à tous,
Entre temps, il me semble que j'ai trouvé un truc qui à l'air de fonctionner
Il suffit de les activer après coup avec enabled =true
Dim MaBarre As CommandBar
Set MaBarre = CommandBars.Add("barre perso")
With MaBarre
.Visible = True
.Position = msoBarTop
.Enabled = False
End With
Set MaBarre1 = CommandBars.Add("barre perso1")
With MaBarre1
.Visible = True
.Position = msoBarTop
.Enabled = False
End With
End Sub
Sub activer2BarresEnHaut()
CommandBars("barre perso").Enabled = True
CommandBars("barre perso1").Enabled = True
End Sub