.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Groupes-Garanties").Cells(i, 8), "0.00")
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Groupes-Garanties").Cells(i, 9)
[COLOR=Red][B].ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Groupes-Garanties").Cells(i, 10)[/B][/COLOR] ' A supprimer, pas de colonne dans la listeview