Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call SupprimerMenuFeuille
End Sub
Private Sub Workbook_Open()
Call DoMenuFeuilles
End Sub
Private Sub Workbook_SheetActivate(ByVal sh As Object)
Dim Cbx As Object
On Error Resume Next
Set Cbx = sh.OLEObjects("ComboBox1").Object
If Not Cbx Is Nothing Then
Cbx.Clear
Cbx.List() = GetListeDesFeuilles()
Cbx.ListIndex = 0
End If
End Sub