Dim k, p, o, q, ctrl
Dim prépa, toq, cout
Dim cuis
For Each ctrl In UsfFT.Frame1.Controls
k = k + ctrl.Value
Next ctrl
If k = 0 Then
Exit Sub
End If
For Each p In UsfFT.Frame2.Controls
If p.Value = True Then Prépa = Trim(p.Caption)
Next p
For Each q In UsfFT.Frame3.Controls
If q.Value = True Then Toq = Trim(q.Caption)
Next q
For Each o In UsfFT.Frame4.Controls
If o.Value = True Then Cout = Trim(o.Caption)
Next o
For Each ctrl In UsfFT.Frame5.Controls
If ctrl.Value = True Then Cuis = Cuis & " " & Trim(ctrl.Caption)
Next ctrl