bonjour,
je désirais remplir une listbox dans un userform avec un tableau filtrée

Le code suivant fonction bien, mais pas sur les filtres
mais je n'ai pas arrivé a trouvé
j'ai cherche aussi du coté de SpecialCells(xlCellTypeVisible)
si quelqu'un aurait une idée
merci d'avance

Private Sub UserForm_Initialize()
Dim MonTableau As ListObject
Set MonTableau = Worksheets("Country").ListObjects("Tableau1")
With Me.ListBox1
.ColumnHeads = True
.ColumnCount = MonTableau.ListColumns.Count
.ColumnWidths = "85;40;50;50;70;70"
.RowSource = MonTableau.DataBodyRange.Address
End With
End Sub