Salut Ycknok,
une manière de faire, en VBA...
Par contre, s'échiner à placer des contrôles CheckBox au lieu de laisser faire VBA...
Donc, dans ce fichier, la colonne [B:B] fait office de CheckBox : la fonte étant réglée sur Wingdings2, un clic affiche un "V" triomphant faisant office de Check.
Le calcul suit avec affichage du résultat en [B1].
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim tTab, iTot%
'
If Not Intersect(Target, Columns(2)) Is Nothing Then
If Target.Offset(0, -1) <> "" Then
Target = IIf(Target = "", "P", "")
If [A2] <> "" Then
tTab = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
For x = 1 To UBound(tTab, 1)
If tTab(x, 1) <> "" And tTab(x, 2) = "P" Then
iTot = iTot + 1
vItem = tTab(x, 1)
For y = 1 To UBound(tTab, 1)
If tTab(y, 1) = vItem Then tTab(y, 1) = ""
Next
End If
Next
[B1] = iTot
Range("A" & Target.Row).Select
End If
End If
End If
'
End Sub
A+