Bonsoir jammy
peut etre un essayant comme ceci :
With Sheets('feuil2')
.Range(.Cells(1, 1), .Cells(ListBox1.ListCount, ListBox1.ColumnCount)) = ListBox1.List
End With
ce code renvoi dans la feuille 2 à partir de la cellule A1, le contenue de la listbox
edition : correction du listcount-1, résidu de mon fichier.
salut
Message édité par: Hervé, à: 17/12/2005 19:26