Option Explicit
Sub test()
Dim c As OLEObject, i As Integer
For Each c In Me.OLEObjects
If TypeName(c.Object) = "CheckBox" And c.Object.Value = True _
And c.Object.Caption = "Homme" Then
i = i + 1
End If
Next c
Range("A1").Value = i
End Sub
je serai interessé par comment améliorer les cases H/F pour ajouter un 3éme etat ni homme ni femme equivalent à "aucune checbox n'est coché