Sub Recherche_Police() Dim i As Long With Application.CommandBars.FindControl(ID:=1728) For i = 1 To .ListCount Debug.Print .List(i) Next i End With End Sub