Utiliser la formule Count avec IF

Sub compte()
'macro écrite par m@rina
Dim tablo As Table
Set tablo = ActiveDocument.Tables(2)
x = 0
    For y = 2 To tablo.Columns(3).Cells.Count
        If tablo.Columns(3).Cells(y).Range.ContentControls(1).Checked = True Then
        x = x + 1
        End If
    Next
MsgBox x
End Sub

For y = 1 To ActiveDocument.ContentControls.Count
If ActiveDocument.ContentControls(y).Title = "mon titre" Then
If ActiveDocument.ContentControls(y).Checked = True Then
x=x+1
End If
End If
Next

Sub compte()
'macro écrite par m@rina
    Dim resultat() As Long, ctrl As Object, gr As Long
    Dim lig As Long, col As Long, msg(1 To 3) As String

    If MsgBox("Avez-vous sélectionné l'emplacement de restitution ?", vbYesNo) = vbNo Then Exit Sub
    With ActiveDocument.Tables(2)
        ReDim resultat(1 To 3, 1 To .Columns.Count - 1)
        For Each ctrl In .Range.ContentControls
            If ctrl.Type = wdContentControlCheckBox Then
                With ctrl.Range.Cells(1)
                    Debug.Print .RowIndex, .ColumnIndex
                    Select Case .RowIndex
                    Case 2 To 14
                        gr = 1
                    Case 15 To 26
                        gr = 2
                    Case 27 To 29
                        gr = 3
                    End Select
                    If ctrl.Checked Then
                        resultat(gr, .ColumnIndex - 1) = resultat(gr, .ColumnIndex - 1) + 1
                    End If
                End With
            End If
        Next ctrl
        For lig = 1 To 3
            For col = 1 To .Columns.Count - 1
                msg(lig) = msg(lig) & ", " & resultat(lig, col)
            Next col
        Next lig
    End With
'    MsgBox msg(1) & vbLf & msg(2) & vbLf & msg(3)
    Selection.TypeText Text:="Résultat par groupe :"
    For lig = 1 To 3
        Selection.TypeParagraph
        Selection.TypeText Text:=msg(lig)
    Next lig
End Sub