Private Sub Cmb_valide_Click()
Dim c As Range, j As Long
If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox4.Value = False And CheckBox5.Value = False Then
MsgBox "Merci de choisir un ou des jour(s)"
Else
Application.ScreenUpdating = False
For Each c In [CHOIX]
If c.Offset(, -1) <> "" Then
j = Weekday(c.Offset(, -1), vbMonday)
If j < 6 Then
c = IIf(UserForm2.Controls("CheckBox" & j), "JNT", "")
End If
End If
Next c
Application.ScreenUpdating = True
Unload UserForm2
End If
End Sub