salut Laurent
bonsoir Laurent45
on peut dans un soucis de simplification,alimenter le Combobox avec cette procèdure
Code:
Private Sub UserForm_Initialize()
Dim maDate As Date
Dim i As Integer
For i = 1 To 12
maDate = DateSerial(Year(Date), i, 1)
ComboBox4.AddItem Format(maDate, 'mmmm')
Next i
End Sub