Private objListe As VBA.Collection 
 
Public Property Let Item(byVal Index as Integer) 
    if index > objListe.count then exit Property
    if index < 1 then exit Property
    Set Item = objListe.Item(Index) 
End Property

Public Property Get Item(ByVal Index As Variant) [u]As clsX

VB RULEZ !