Bonsoir,
Sub test()
Dim i%, n%
With ActiveSheet
With .ListBoxes(1)
For i = 1 To .ListCount
If .Selected(i) Then n = n + 1
Next i
End With
.Range("F2") = n
End With
End Sub
Tu places cette macro dans un module Standard (tu peux changer son nom... )
Et tu l'affectes à ta zone de liste (clic droit > affecter une macro)
Cordialement