Sub PourSavoir()
Dim cb As CommandBar, c As CommandBarControl
For Each cb In CommandBars
For Each c In cb.Controls
If c.Caption Like "Assig*" Then MsgBox cb.Name & vbLf & c.Caption & vbLf & "Visible : " & c.Visible
Next c, cb
End Sub
Sub PourAfficher()
Dim cb As CommandBar, c As CommandBarControl
For Each cb In CommandBars
For Each c In cb.Controls
If c.Caption Like "Assig*" Then c.Visible = True
Next c, cb
End Sub