Private Sub Label10_Click()
Chemin = ThisWorkbook.Path & "\Images\"
Sheets("Feuil2").Activate
Sheets("Feuil2").Visible = True
On Error Resume Next
CommandBars("BarrePopup").Delete
Set MaBarre = Application.CommandBars.Add(Name:="BarrePopup", Position:=msoBarPopup)
Set bouton = CommandBars("BarrePopup").Controls.Add(Type:=msoControlButton)
With ActiveSheet
bouton.OnAction = "Supprimer"
bouton.Caption = "Effacer toutes les catégories"
Set bouton = CommandBars("BarrePopup").Controls.Add(Type:=msoControlButton)
bouton.Caption = "-----------------------------"
Set bouton = CommandBars("BarrePopup").Controls.Add(Type:=msoControlButton)
bouton.OnAction = "Cat_Rouge"
bouton.Caption = "Catégorie rouge"
Set Img = .Pictures.Insert(Chemin & "cat-rg.gif")
Img.Copy
bouton.PasteFace
Img.Delete