Sub Test_Commandbars()
'MJ
Application.ScreenUpdating = False
n = Application.CommandBars.Count
For i = 2 To n
Cells(i, 1) = i - 1
Cells(i, 2) = Application.CommandBars(i - 1).Name
Cells(i, 3) = Application.CommandBars(i - 1).NameLocal
Cells(i, 4) = Application.CommandBars(i - 1).Enabled
Next
MEF
Application.ScreenUpdating = True
End Sub
Sub MEF()
'Henry
Range("A1").Select
ActiveCell.FormulaR1C1 = "Num Barre"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Nom Anglais"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Nom Local"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Enable"
Columns("A:D").Select
Columns("A:D").EntireColumn.AutoFit
Range("A1").Select
End Sub
Sub Supprime_BO_Sel()
'Supprime la barre d'outils sélectionnée
Application.CommandBars(ActiveCell.Text).Delete
End Sub