Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Cell").Controls("Mon menu").Delete
On Error GoTo 0
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim menuB As CommandBarPopup, btnU As CommandBarButton, btnL As CommandBarButton
On Error Resume Next
With Application
Set menuB = .CommandBars("Cell").Controls("Mon menu")
If menuB Is Nothing Then
On Error GoTo 0
Set menuB = .CommandBars("Cell").Controls.Add(msoControlPopup)
With menuB
.Caption = "Mon menu"
Set btnU = menuB.Controls.Add(msoControlButton)
Set btnL = menuB.Controls.Add(msoControlButton)
With btnU
.Style = msoButtonCaption
.Caption = "Unité"
.OnAction = "InserU"
End With
With btnL
.Style = msoButtonCaption
.Caption = "Lot"
.OnAction = "InserL"
End With
End With
End If
End With
End Sub