Private Sub Lvw_Base_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) NCol = ColumnHeader.Index With Lvw_Base NB = .ListItems.Count somme = 0 For n = 1 To NB If IsNumeric(.ListItems(n)) Then somme = somme + .ListItems(n) End If Next n End With MsgBox "somme: " & somme End Sub