Référence d'objet et dictionnaires...

[Powel <powel at mac dot com>]

Bonjour,

En mettant des dictionnaires dans un dictionnaire, je réalise que les  
dictionnaires en question sont des références. De ce fait, si  
j'utilise une boucle, toutes les valeurs correspondent à la dernière  
valeur du dictionnaire.
Ex :

  Dim selection As RecordSet
  Dim n As Integer
  Dim sites As new Dictionary
  Dim site As new Dictionary

  selection=App.db_select(false, "Select id, noms, base From sites  
Where is_rss=1 and base='"+app.db_tag+"'", "Selectionne la liste des  
sites", true)
  n=0

  While not selection.EOF
    n=n+1

   site.Value("id")=selection.Field("id").Value
    site.value("nom")=selection.Field("noms").Value.DefineEncoding 
(Encodings.UTF8)
    site.Value("base")=selection.Field("base").Value

    sites.value(n)=site

    selection.MoveNext
  Wend


Dans ce cas, sites ne contient que des références à l'objet site. La  
dernière valeur de site est donc attribuée à toutes les valeurs.
Ma question est donc la suivante : comment faire pour n'attribuer que  
les valeurs d'un objet et non la référence à l'objet ? S'il y a une  
autre solution, je suis preneur !
Powel