Option Explicit
Private MesCheckBoxes() As Classe1
Sub initMesCheckBoxes()
Dim obj
Dim i As Integer
Erase MesCheckBoxes
For Each obj In Me.OLEObjects
If Left(obj.Name, 8) = "CheckBox" Then
ReDim Preserve MesCheckBoxes(0 To i)
Set MesCheckBoxes(i) = New Classe1
Set MesCheckBoxes(i).LeCheckBox = obj.Object
i = i + 1
End If
Next obj
End Sub