Sub Go_Popup()
Add_Popup_Option "Shapes"
End Sub
Sub Add_Popup_Option(Bar As String)
With Application.CommandBars(Bar)
If .Type = msoBarTypePopup Then
.Reset
With .Controls.Add(msoControlButton, 1, , 1)
.Caption = "AEIOUY ===> " & Bar
.OnAction = "Pasglop"
End With
Else
Debug.Print Bar & " n'est pas de type Popup"
End If
End With
End Sub