Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then ComboBox1.ListIndex = Month(Date) - 1
End Sub
'Chargement et initialisation du combobox
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12: ComboBox1.AddItem MonthName(i): Next
ComboBox1.ListIndex = Month(Date) - 1
End Sub