Remplace ton code par celui-ci :
Sub ActualisationListView()
Dim Item As ListItem
Dim dl, i As Integer
listview.ListView1.ListItems.Clear
dl = Sheets("Grille_de_Dispensation").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To dl
Set Item = listview.ListView1.ListItems.Add(Text:=Sheets("Grille_de_Dispensation").Cells(i, 1))
Item.SubItems(1) = Sheets("Grille_de_Dispensation").Cells(i, 2)
Item.SubItems(2) = Sheets("Grille_de_Dispensation").Cells(i, 3)
Item.SubItems(3) = Sheets("Grille_de_Dispensation").Cells(i, 4)
Item.SubItems(4) = Sheets("Grille_de_Dispensation").Cells(i, 5)
Item.SubItems(5) = Sheets("Grille_de_Dispensation").Cells(i, 6)
Item.SubItems(6) = Sheets("Grille_de_Dispensation").Cells(i, 7)
Item.SubItems(7) = Sheets("Grille_de_Dispensation").Cells(i, 8)
Item.SubItems(8) = Sheets("Grille_de_Dispensation").Cells(i, 9)
Item.SubItems(9) = Sheets("Grille_de_Dispensation").Cells(i, 10)
'Item.SubItems(10) = Sheets("Grille_de_Dispensation").Cells(i, 10)
Next i
End Sub
a+