Public nom As String
Public classeEnfant As New Collection
Public Function init(usf)
Dim cl As Classe1
Me.nom = "mère"
Cells(Rows.Count, 1).End(xlUp).Offset(1) = "classe " & Me.nom & " démarrée"
For i = 1 To 5
Set cl = New Classe1
cl.nom = "enfant " & i
Cells(Rows.Count, 1).End(xlUp).Offset(1) = "classe " & cl.nom & " démarrée"
classeEnfant.Add cl
Next
End Function
Private Sub Class_Terminate()
Cells(Rows.Count, 1).End(xlUp).Offset(1) = "classe " & Me.nom & " terminée"
End Sub