bonjour milaerdo,
essaye ce code, dans le module de ta feuille :
------------------------------------------------------------------------
Private Sub ComboBox1_Change()
MAJCombo2
End Sub
------------------------------------------------------------------------
et dans un module standard :
------------------------------------------------------------------------
Sub MAJCombo2()
Sheets(1).ComboBox2.Clear
Sheets(1).ComboBox2.Text = Sheets(1).ComboBox1.Text
Dernierjour = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
If Val(Sheets(1).ComboBox1.Text) > Dernierjour Then
Sheets(1).ComboBox2.Text = " "
End If
For i = Sheets(1).ComboBox1.Text To Dernierjour
Sheets(1).ComboBox2.AddItem i
Next
End Sub
--------------------------------------------------------------------------
amicalement