Sub createItemInMenu()
Dim ct As Object, bt As Object, Men As Object
With CommandBars("Cell")
.Reset
For Each ct In .Controls
If ct.Caption = "&Trier" Then Set Men = ct
Next
If Men Is Nothing Then Exit Sub
Set bt = Men.Controls.Add(msoControlButton, , , 1, True)
With bt
.Caption = "trier par un truc"
.FaceId = 2563 ' l'icon que l'on veux
.OnAction = "mafonction"
End With
End With
End Sub
Sub...