Bonjour j'ai le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
  Set Liste = CreateObject("Scripting.Dictionary")
  Sheet1.Select
  For Each c In Range([A1], [A20].End(xlUp))
   If Not Liste.Exists(c.Value) And c.Value <> "" Then Liste.Add c.Value, c.Value
  Next c
 
 
a = Liste.items(1)
b = Liste.items(2)
Ce que je cherche à faire c'est récupérer dans une plage de donnée A1 à A20 la valeur des cellules et placer ceci dans une collection et je voudrais ensuite pouvoir affecter les valeurs de la collection à des variables. Mais je ne sais pas comment lui dire par exemple que la variable a prend la première valeur de la collection, la variable b la deuxième valeur. Ce que j'ai essayé ci dessus ne fonctionne pas. Savez vous comment faire cette manip?

Merci a vous