J'ai fait cette boucle mais elle ne fait qu'une colonne ce qui m'oblige à dupliquer la boucle autant de fois que de colonne de A à H. C'est possible de tout faire en une fois ?
i = 0
For Each c In Range("h6", [h65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
Me.ListBox1.AddItem
Me.ListBox1.List(i, 7) = c.Value ' 1ere colonne
i = i + 1
Next c
Par contre, il y a un problème d'affichage qu'en il n' y a pas de donné dans le filtre, il répète les en-tête des colonnes dans la liste box.
Merci
T.
Autres soucis, la boucle fait planter la macro tri .........
Je craque.....
T.