Sub affiche()
With UserForm1
l = lundi(Format(CDate("01/" & .TextBox2 & "/" & .TextBox1), "m"), .TextBox1 * 1)
For n = 1 To 38
If Format(l + n - 1, "mmmm") <> .TextBox2 Then
.Controls("CommandButton" & n).Visible = False
Else
.Controls("CommandButton" & n).Caption = Format(l + n - 1, "d")
.Controls("CommandButton" & n).Visible = True
.Controls("CommandButton" & n).BackColor = IIf(CDate(l + n - 1) <> Date, &H8000000F, vbGreen)
End If
If est_ferie(l + n - 1) Then
.Controls("CommandButton" & n).BackColor = &H80C0FF
End If
Next n
.Repaint
End With
End Sub