Choix de feuilles dans un listBox

[Pierre]

Bonjour à tous,

J'ai un lisbox qui reprend les noms des feuilles d'un classeur. Ce listBox est en multiselect.
Lorsque la selection est cochée (If ListBox1.Selected(i) = True Then), je souhaite que la feuille dont le nom est coché soit activée, que des données soient recopiées sur une autre feuille avant de passer à la feuille cochée suivante.
Avec le code qui suit les données sont effectivement copiée mais certaines sont répétées pour obtenir sur la feuille récapitulative le même nombre total de données que le nombre de feuilles.
Ex: feuil1 = Chantal
feuil2 = Daniel
Feuil3= Sylvie
feuil4= Véro
Si je coche Chantal et Daniel j'obtiens sur la feuile récapitulative Chantal Chantal Daniel Daniel (soit au total 4 feuilles comme dans la liste)
Voici le code
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Worksheets(ListBox1.List(i)).Activate
Set nom = Range("c3")

Que me faut-il changer pour pouvoir n'avoir qu'une seule fois chaque donnée?


Déjà merci.


Pierre