Sub MasquerBarres()
Dim Barre As CommandBar
For Each Barre In CommandBars
i = 1
[COLOR="red"] If Barre.Name = "Worksheet Menu Bar" Then
Barre.Enabled = False[/COLOR] Else
If Barre.Visible = True Then
Sheets("Feuil1").Cells(i, 1) = Barre.Name
i = i + 1
Barre.Visible = False
End If
End If
Next
End Sub