Private Sub CommandButton20_Click()
Dim Activité As String, i As Integer, Cel As Range
For i = 1 To 5
If Controls("CheckBox" & i) = True Or Controls("Checkbox6") = True Then Activité = Activité & Controls("CheckBox" & i).Caption & ", "
Next
If Activité = "" Then GoTo Sortie
For Each Cel In Range("E5:AY35")
If Cel.Value = Date Then Cel.Offset(0, 1) = Left(Activité, Len(Activité) - 2)
Next Cel
Sortie:
Unload tableau_bord_Psst
End Sub