Sub barrecmd()
Dim Ctr As CommandBarControl
Dim i As Long
Feuil1.Activate
i = 0
For j = 1 To Application.CommandBars.Count
On Error Resume Next
i = i + 1
If CommandBars(j).Name = "" Then GoTo suite
ActiveSheet.Cells(i, 1) = j
ActiveSheet.Cells(i, 2) = CommandBars(j).Name
ActiveSheet.Cells(i, 3) = CommandBars(j).NameLocal
ActiveSheet.Cells(i, 4) = CommandBars(j).ID
suite:
Next
End Sub