Private Sub CobAnnee_Change()
Dim i As Integer, j As Integer, z As Variant
CobValeur.Clear
z = 0
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).ListSubItems(1).Text = CobAnnee.Text Then
For j = 2 To ListView1.ColumnHeaders.Count - 1
If ListView1.ListItems(i).ListSubItems(j).Text <> "X" Then z = z + 1
Next j
End If
Next i
CobValeur = "nb... " & z
End Sub