Vba éléments listbox vers une cellule

Bonjour,



je tente désespérement de comprendre les méandres de la listbox de VBA mais la je sèche complètement.

Je souhaite envoyer un mail à (plusieurs) destinataires par outlook.
Pour cela, je souhaite créer une liste box qui ira chercher la liste des destinataires dans la feuille 2 (mail) prévue à cet effet.
a priori il va me falloir deux macro : 1 pour choisir les destinataires, la 2ème pour lancer les mails via outlook.

l'idée serait que :
La listeBox apparait, et l'utilisateur sélectionne les destinataires.
Ensuite les destinataires doivent se rapatrier dans la cellule C4 de ma feuille 1 (avec un bouton valider pourquoi pas).

Je mets ci-dessous le code de ce que j'ai fait (cela ne marche pas).

Sub CommandButton_valider()

Dim i As Integer

'je mets ci-dessous i to 15 mais je préfèrerais i to la fin de ma liste de contact

Dim contact(1 To 15, 1 To 3) As String

Sheets("mail").Select
i = 1
While Range("a" & i) <> ""


contact(i, 1) = Range("a" & i)
contact(i, 2) = Range("b" & i)
contact(i, 3) = Range("c" & i)

i = i + 1

Wend

'je montre ma listbox
MaBoite.Show 0


'Sheets("feuil1").Select
i = 4
With ComboBox1
Worksheets("Feuil1").Range("c" & i).Resize(.ListCount) = ListBox1.List
End With

Next i

End Sub


Merci beaucoup pour votre aide.