Option Explicit
Public Collect As Collection
Public CollectC As Collection
Public Sub InitOption(i As Integer)
Dim Obj As Control
Dim Cl As Classe1
Set Cl = Nothing
Set Collect = New Collection
'boucle sur les objets de la Feuil1
'For b = 1 To Me.MultiPage2.Pages.Count
For Each Obj In UserForm1.MultiPage2.Pages(i).Controls
'verifie s'il s'agit d'un OptionButton
If TypeOf Obj Is MSForms.OptionButton Then
Set Cl = New Classe1
Set Cl.OptionButtonGroup = Obj
Collect.Add Cl
End If
Next Obj
End Sub