CommandBars.FindControl(ID:=2054).Execute ne fonctionne pas !

Option Explicit

Sub Liste()
Dim cmdBar As CommandBar
Dim ctrl As CommandBarControl
Dim i As Long

    Feuil1.Columns("A:B").Clear
    Application.ScreenUpdating = False
    i = 1
    For Each cmdBar In CommandBars
        If cmdBar.Type = msoBarTypeNormal Then
            For Each ctrl In cmdBar.Controls
                If Len(ctrl.Caption) > 0 Then
                    Cells(i, 1) = ctrl.Caption
                    Cells(i, 2) = ctrl.ID
                    i = i + 1
                End If
            Next ctrl
        End If
    Next cmdBar
    Application.ScreenUpdating = True
End Sub

If cmdBar.Type = msoBarTypeNormal Then .... End If