Bonjour,

Un début de solution:

Option Explicit

Public Sub ClicDroit(b As Boolean)
With Application.CommandBars("Cell")
.Controls("&Insérer...").Visible = b
...