Commandbars

Bonjour,
je veux faire apparaître une barre d'outil à l'ouverture de mon classeur et
je n'arrive pas à imsérer plus de 3 boutons. quelqu'un aurait-il un
explication

Sub NewBar()
Application.CommandBars.Add(Name:="aaaa", Position:=msoBarTop,
temporary:=True).Visible = True
Application.CommandBars("aaaa").Controls.Add Type:=msoControlButton, ID _
:ƒ7, Before:=1
Application.CommandBars("aaaa").Controls.Add Type:=msoControlButton, ID _
:=3, Before:=2
Application.CommandBars("aaaa").Controls.Add Type:=msoControlButton, ID _
:Y, Before:=3
Application.CommandBars("aaaa").Controls.Add Type:=msoControlButton, ID _
:—, Before:=4
Application.CommandBars("aaaa").Controls.Add Type:=msoControlButton, ID _
:, Before:=5
Application.CommandBars("aaaa").Controls.Add Type:=msoControlButton, ID _
:=4, Before:=6
Application.CommandBars("aaaa").Controls.Add Type:=msoControlButton, ID _
:„0, Before:=7
Application.CommandBars("aaaa").Controls.Add Type:=msoControlButton, ID _
:59, Before:=8
Application.CommandBars("aaaa").Controls.Add Type:=msoControlButton, ID _
:6, Before:=9

End Sub



Merci