Private Sub CommandButton1_Click()
Dim i%, Texte$, Tb(), x%
'on boucle sur les items de la listbox
For i = 0 To ListBox1.ListCount - 1
'si un item est sélectionné
If ListBox1.Selected(i) Then
'on l'ajoute à la variable texte séparé par une virgule
Texte = Texte & ListBox1.List(i) & ", "
'on redimensionne le tableau Tb
x = x + 1
ReDim Preserve Tb(1 To x)
'et on lui ajoute l'item
Tb(x) = ListBox1.List(i)
End If
Next
's'il n'y a aucun item sélectionné on quitte
If x = 0 Then Exit Sub
'on écrit le texte dans la cellule active en supprimant la dernière virgule
ActiveCell = Left(T, Len(T) - 2)
'dans la feuille lettrediffusion
With Feuil2
'on efface les anciennes données
.Range("A12:A100").ClearContents
'et on transfert les données du tableau Tb
.Range("A12").Resize(UBound(Tb), 1) = Application.Transpose(Tb)
End With
Unload Me
End Sub