Private Sub CommandButton1_Click()
Dim Ctrl As Control, i As Byte, Rep as String
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "CheckBox" Then
If Ctrl.Value = True Then
[B]i = i + 1[/B]
ReDim Preserve T(i)
T(i) = Ctrl.Caption
Rep = Rep & T(i) & Chr(10) 'pour affichage MsgBox
End If
End If
Next Ctrl
MsgBox Rep 'pour contrôle
End Sub