Range("B20") = WorksheetFunction.EoMonth(Date, 0)
For i=1 to 31
For i = 1 To Day(WorksheetFunction.EoMonth(Date, 0))
Next
Dim Mois(1 To 12) As String
' Création d'un tableau des noms de mois
For i = 1 To 12
Mois(i) = Format(DateSerial(1, i, 1), "mmmm")
ComboBox2.AddItem Mois(i)
Next i