ListView4.ListItems.Clear
With ListView4
.View = lvwReport
.FullRowSelect = True
'.Gridlines = True
For i = 2 To Sheets("Calcules").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
.ListItems.Add , , Sheets("Calcules").Cells(i, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 7)
next
end with