voila la solution pour ce que ça intéresse (je l'ai trouvé dans les archives) . .
Sub EnleverPlyCtrl()
Dim Ctrl As Object
For Each Ctrl In Application.CommandBars('Ply').Controls
If Ctrl.ID = 945 Or Ctrl.ID = 847 Or Ctrl.ID = 889 Or Ctrl.ID = 848 Then Ctrl.Delete
Next Ctrl
End Sub
Sub ReMettrePlyCtrl()
Dim Ctrl As Object
For Each Ctrl In Application.CommandBars('Ply').Controls
If Ctrl.ID = 945 Or Ctrl.ID = 847 Or Ctrl.ID = 889 Or Ctrl.ID = 848 Then Exit Sub
Next
With Application.CommandBars('Ply')
.Controls.Add ID:=945, Before:=1
.Controls.Add ID:=847, Before:=2
.Controls.Add ID:=889, Before:=3
.Controls.Add ID:=848, Before:=4
End With
End Sub
A pluche