[Hervé]

Bonjour

Une proposition en pièce jointe.

Sans le module thisworkbook :

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

Dans un module standard :

Sub apparition()
'permet de faire apparaitre la boite de dialogue de la mefc
Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub

Salut

[file name=Classeur2_20050515153826.zip size=8064]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050515153826.zip[/file]