Sub maj()
date1 = CDate("01 " & Me.ComboBox1.Value & " " & Me.TextBox1.Value)
date2 = date1
joursem = Weekday(date1)
For j = 2 To 43
Set c = UserForm1.Controls(j)
c.Visible = True
If Len(c.Name) = 12 And CInt(Right(c.Name, 1)) <= joursem Then
c.Visible = False
Else
If Month(date1) = Month(date2) Then
c.Caption = Day(date1)
Else
c.Visible = False
End If
date1 = date1 + 1
End If
Next
End Sub