'<= début du code
' Ajouter les éléments de la 1re colonne
For Lig = 2 To DerLig
' Ajouter les lignes visibles uniquement
If ws.Rows(Lig).Hidden = False Then
'Ajouter un élément en spécifiant la valeur seulement
'les éléments sont dans la même colonne que notre référence (rg)
.ListItems.Add , , ws.Range("A" & Lig)
' Calculer l'indice de ligne de la ListView
Ind = .ListItems.Count
' Ajouter les colonnes
For Col = 1 To 11 'Nous bouclons sur les 12 colonnes
'Ajouter un sous-élément en spéciant la valeur seulement
.ListItems(Ind).ListSubItems.Add , , ws.Cells(Lig, Col)
Next Col
End If
Next Lig
' => fin du code