2ème proposition
Option Explicit
Private Sub Worksheet_Activate()
Dim i As Byte
ComboBox1.Clear
For i = 1 To 12 ' Création des 12 mois
ComboBox1.AddItem UCase(Left(MonthName(i), 1)) & Right(MonthName(i), Len(MonthName(i)) - 1) ' Majuscule au premier caractères du mois
Next
With ComboBox1
.ForeColor = RGB(20, 90, 215) ' Couleur de la police
.Font.Name = "Verdana" ' Police de caractères
.Font.Size = 18 ' Taille de la police
End With
End Sub
Private Sub ComboBox1_Change()
Cells(9, "I") = Month(DateValue("01 " & ComboBox1.Value & " 2016")) ' Numéro du mois
End Sub
Dans cet exemple j'ai remplacé
Format(DateValue("01 " & ComboBox1.Value & " 2016"), "m")
par
Month(DateValue("01 " & ComboBox1.Value & " 2016"))
parce que c'est plus court, mais les 2 propositions sont valable, c'est une question d'écriture.