C'est simple: Tu les affiches toutes, ensuite tu lances l'enregistreur de macro et tu les masques une a une et voila tu auras deja tous les noms.
Si tu veux tout masquer d'un coups, tu utilises:
Sub masq_bar()
On Error GoTo fin
foundFlag = False
For Each cb In CommandBars
If cb.Name <> " " Then
cb.Visible = False
foundFlag = True
End If
Next cb
fin:
End Sub