Private Sub ComboBox2_Change()
ligne = 9
Range("B8:B39").ClearContents
Range("B8") = Format(CDate("01/" & ComboBox1 & "/" & ComboBox2), "mm-yyyy")
If ComboBox1.ListIndex = 11 Then
fin = CDate("31/12/" & ComboBox2)
Else
fin = CDate("01/" & ComboBox1.ListIndex + 2 & "/" & ComboBox2) - 1
End If
For n = CDate("01/" & ComboBox1 & "/" & ComboBox2) To fin
Cells(ligne, "B") = n
ligne = ligne + 1
Next n
End Sub