Public WithEvents check As msforms.CheckBox
Dim cls() As New classCheck
Public Function classage()
Dim Ctl, A&
For Each Ctl In Feuil1.OLEObjects
If Ctl.TopLeftCell.Column = 3 Then
A = A + 1: ReDim Preserve cls(1 To A): Set cls(A).check = Ctl.Object
End If
Next
End Function
Private Sub Check_Click()
MsgBox "tu fait ce que tu veux avec le checkbox " & check.Name
End Sub