Copier ListBox vers Cellule en bouclant

Bonjours a tous

Je voudrais savoir comment copier les éléments d'une listbox vers des cellules en bouclant.

Sur quel propriété de Listbox devrons nous pointer. Voici ma boulce :

For i = 1 To UserForm1.ListBox2.ListCount

With Sheets("Feuil2")

.Range("ColonCode" & i).Select

If ("ColonCode" & i) <> "" Then

.Range("ColonCode" & i).Value = ListBox5.List

.Range("ColonDes" & i).Value = ListBox2.List

.Range("Blank" & i).Value = CodeEnvoi.Value

Else

MsgBox "Colonne non vide"

End If

.Range("H7") = Destinataire.Value

End With

Next

Le blem avec cette boule c'est qu'il me copie a chaque la même information dans toute les cellules.

POur Listbox5 il n'affecte que le premier élement dans toutes les cellules "ColonCode" & i" et également pour Listbox2 pour les zones"ColonDes" & i.

Il devrais normalement copier l'élément après élément comme dans une boucle normale.

Je voudrais donc savoir le blem.

Merci

Ps : ListBox.List(i) me renvoi une erreur sur l'incompatibilité de type

Bonsoir,

A tester :

.Range("ColonCode" & i).Value = ListBox5.List(i - 1)
.Range("ColonDes" & i).Value = ListBox2.List(i - 1)

Exemple en PJ à tester

Bonne soirée

Bouben