Dim F1 As Worksheet
Set F1 = ThisWorkbook.Sheets("tableau de bord")
Dern = F1.[A65000].End(xlUp).Row
With Me.ListView1
.ListItems.Clear
With .ColumnHeaders
.Clear
'tu indiques ici tes colonnes avec le nom et la taille
.Add , , "Civilité", 100
.Add , , "Nom", 200
.Add , , "Prénom", 150
.Add , , "code postal", 50
End With
X = 0
For Lig = 2 To Dern
If F1.Cells(Lig, 1) <> "" Then
X = X + 1
'tu indiques ici le N° des colonnes des valeurs qui vont alimenter ta liste
.ListItems.Add , , F1.Cells(Lig, 1).Value
.ListItems(X).ListSubItems.Add , , F1.Cells(Lig, 2).Value
.ListItems(X).ListSubItems.Add , , F1.Cells(Lig, 3).Value
.ListItems(X).ListSubItems.Add , , F1.Cells(Lig, 4).Value
End If
Next Lig
End With