Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars('Cell').Controls('MEFC').Delete
End Sub
Private Sub Workbook_Open()
With Application.CommandBars('Cell').Controls.Add(msoControlButton)
.Caption = 'MEFC'
.BeginGroup = False
.FaceId = 2950
.OnAction = 'apparition'
End With
End Sub