Sub Remplir_Lvw_NATIFS(C As Variant)
' Macro permettant de charger le contenu des cellules se trouvant dans le tableau de feuille source dans la ListView1
'C = Feuil1.Range("A2:P2" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row).Value
Dim lg As Long
With UserForm1.Lvw_NATIFS
For lg = 2 To UBound(C)
Set Lst = .ListItems.Add(, , Format(C(lg, 1), ""))
With Lst
.ListSubItems.Add , , C(lg, 2)
.ListSubItems.Add , , C(lg, 3)
.ListSubItems.Add , , C(lg, 4)
.ListSubItems.Add , , C(lg, 5)
.ListSubItems.Add , , C(lg, 6)
.ListSubItems.Add , , C(lg, 7)
.ListSubItems.Add , , C(lg, 10)
.ListSubItems.Add , , C(lg, 11)
.ListSubItems.Add , , C(lg, 12)
.ListSubItems.Add , , C(lg, 13)
.ListSubItems.Add , , C(lg, 14)
.ListSubItems.Add , , C(lg, 15)
.ListSubItems.Add , , C(lg, 16)
End With
Next lg
End With
End Sub