Pb avec property set

Bonjour,

J'essaie de déclarer des objets et si j'arive à peu près à m'en sortir de pour les instancier avec des attributs simples je n'arrive pas à leur donner des attributs plus complexes. Notamment :

Impossible de donner à une instance un attribut autre que les long/single etc. dès qu'il s'agit d'une instance de classe, en particulier la classe que je suis en train de définir, il me renvoie une erreur, même avec Set au lieu de Let et je n'arrive pas non plus à me dépatouiller avec des attributs comme des collections:

Dim rang As Integer
Dim bestMarge As Long
Private bestEtatS As Etat
Private etatNext As Collection
Private etatBefore As Collection

'----------------------------------------
' Rang
'----------------------------------------

Public Property Get arang() As Integer
arang = rang
End Property

Public Property Let arang(valeur As Integer)
rang = valeur
End Property

'----------------------------------------
' bestMarge
'----------------------------------------

Public Property Get abestMarge() As Long
abestMarge = bestMarge
End Property

Public Property Let abestMarge(valeur As Long)
bestMarge = valeur
End Property

'----------------------------------------
' bestEtatS
'----------------------------------------

Public Property Get aBestEtatS() As Etat
aBestEtatS = bestEtatS
End Property

Public Property Set aBestEtatS(ByVal valeur As Etat)
Set bestEtatS = New Etat
Set bestEtatS = valeur
End Property


'----------------------------------------
' etatNext
'----------------------------------------

Public Property Get aetatNext()
aetatNext = etatNext
End Property

Public Function iniEtatNext()

Set etatNext = New Collection

End Function


////////////////////////////////////////////////////////////////////////////

sub prog

Set test = New Etat
Set test2 = New Etat

test.arang = 3
test2.arang = 5

test.aBestEtatS = test2
MsgBox test.aBestEtatS.arang

test.iniEtatNext
test.addEtatNext (test2)

End Sub


sur les deux blocs d'instruction de fin il me répond :
"Variable objet ou variable de bloc With non définie"

Merci beaucoup pour votre aide!!