Bonjour à tous

Je viens vers vous car j'avais une nouvelle problématique
Je cherche a remplir une list box multi-colonne a partir de données filtrés
=> Affichage que des données des visible

J'ai bien reussi a alimenter ma list box mais avec toutes les ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim DerLig As Long
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Tbl = Worksheets("Base Machine de Report CMS").Range("A2:F" & DerLig)
With Me.ListBox1
    .ColumnCount = 6
    .ColumnWidths = "60;60;60;50;120;60"
    .List = Tbl
End With
Merci pour votre aide

Bonne journée

Bibbip