Remplir une listview avec feuilel de calcul

Private Sub UserForm_initialize()

Dim i As Long, k As Byte

With Me.ListView1
 .ListItems.Clear
    With .ColumnHeaders
      .Clear
      .Add , , "Pièce", 70
      .Add , , "Articles", 120
      .Add , , "Référence", 90
      .Add , , "Qtté", 39
      .Add , , "Prix Unitaire", 80
      .Add , , "Montant HT", 80
     '.Add , , "Marge", 40
     '.Add , , "Pièce", 0
    End With
    
    For i = 20 To Sheets("Devis").Range("A65536").End(xlUp).Row
       .ListItems.Add , , Sheets("Devis").Cells(i, 1)
          For k = 2 To 6
             .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Devis").Cells(i, k)
          Next
    Next
End With

End Sub