Private Sub Workbook_Open()
Dim CB_Calend As CommandBar
Dim CB_Cbx As CommandBarComboBox
On Error Resume Next
Application.CommandBars(CStr(Year(Date))).Delete
On Error GoTo 0
Set CB_Calend = Application.CommandBars.Add( _
CStr(Year(Date)), msoBarTop, False, True)
With CB_Calend
Set CB_Cbx = .Controls.Add(Type:=msoControlComboBox)
End With
With CB_Cbx
.Caption = "Mois"
.OnAction = "test"
For iCounter = 0 To 11
.AddItem UCase(Format(DateSerial(1, iCounter + 1, 1), "mmmm"))
Next iCounter
.ListIndex = 1
End With
CB_Calend.Visible = True
End Sub