XL 2021 Calendrier Checkbox; ComboBox

Private Sub CB2_Change()
    CB2 = Format(CB2, "ddd dd mmmm")
End Sub

Private Sub CB2_Change()
    CB2 = Format(CB2, "ddd dd mmmm")
End Sub

For l = 12 To 743
For c = 4 To 28
'Si CBx1 égal prénom et CBx3 égal date et CBx4 égale am ou pm alors on vise la cellule pour la remplir avec "CP"
If CBx1.Value = Cells(4, c) And CDate(CBx3.Value) = CDate(Cells(l, 2)) And CBx4.Value = Cells(l, 3) Then
Cells(l, c) = "CP"

End If
Next c
Next l

Private Sub OK_Click()
Application.ScreenUpdating = False
Dim l As Integer, Col As Integer, ColCible As Byte
     With Worksheets("Feuil1")
                For Col = 4 To 16
                             If Me.CBx1.Value = .Cells(4, Col) Then ColCible = Col: Exit For
                 Next Col
For l = 12 To 743
      If Weekday(CDate(.Cells(l, 2)), vbMonday) < 6 Then
            If CDate(Me.CBx3.Value) = CDate(.Cells(l, 2)) And Me.CBx4.Value = .Cells(l, 3) Then
                                     .Cells(l, ColCible) = "CP"
           
                  ElseIf CDate(.Cells(l, 2)) > CDate(Me.CBx3.Value) And CDate(.Cells(l, 2)) < Me.CBx6.Value Then
                                     .Cells(l, ColCible) = "CP"
           
                  ElseIf CDate(Me.CBx6.Value) = CDate(.Cells(l, 2)) And Me.CBx7.Value = .Cells(l, 3) Then
                                     .Cells(l, ColCible) = "CP"
                           
                            If CDate(Me.CBx6.Value) = CDate(.Cells(l, 2)) Then Exit For
            End If
      End If
Next l
End With
Unload Me
End Sub