Private Sub TTotal()
Dim k As Long, Ttl1 As Currency, Ttl2 As Currency
With ListView1
For k = 1 To .ListItems.Count
Ttl1 = Ttl1 + .ListItems(k).ListSubItems(6).Text
Next
Somme.Caption = Format(Ttl1, "# ##0")
End With
With ListView1
For k = 1 To .ListItems.Count
Ttl2 = Ttl2 + .ListItems(k).ListSubItems(7).Text
Next
Label18.Caption = Format(Ttl2, "# ##0")
End With
End Sub