Addition dans listview pour windows 2003 et 2077

For a = 1 To Planning.ListView1.ListItems.Count 'boucle sur la listview
    If Planning.ListView1.ListItems(a).ListSubItems(1).Text = "" Then ' si la 2ème colone de la ligne = ""
For y = 1 To Planning.ListView1.ListItems.Count 'boucle sur la listview
                                            If ListView1.ListItems(y).ListSubItems(9).Text = ListView1.ListItems(a).ListSubItems(9).Text Then ' si la valeur de la colonne 9 est égale à la valeur de la boucle "a" colonne 9
                                              ListView1.ListItems(a).ListSubItems(8).Text = Application.WorksheetFunction.Sum(Val(ListView1.ListItems(a).ListSubItems(8)), Val(ListView1.ListItems(y).ListSubItems(8))) 'la ça va pas pour la version 2003 - on additionne toutes les valeurs correspondante dans la boucle a
Nbr = Nbr + 1
                                            End If
Next y

ListView1.ListItems(a).ListSubItems(8).Text = ListView1.ListItems(a).ListSubItems(8) / 100 / Nbr 'somme du résultat divisé par 100 et par le nombre de valeur
ListView1.ListItems(a).ListSubItems(8).Text = Format(ListView1.ListItems(a).ListSubItems(8), "0.00%")' format pourcentage

next a
end if