Private Sub Workbook_Open()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
On Error Resume Next
CommandBars("MaBarrePerso").Delete
Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 191
.OnAction = "Démarrage"
End With
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 3873
.OnAction = "pagedegarde"
End With
CmdBar.Visible = True
End Sub