Somme de cases cochées dans excel 03

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Intersect(Target, Range("L3:P162")) Is Nothing Then Exit Sub
  If Target.Count > 1 Then Exit Sub
  If Target.Formula = "" Then Target.Formula = "X" Else Target.Formula = ""

End Sub

Public Sub TotCheck()
Const NbColonne = 3 ' adapter au nombre de colonnes
Dim TB(NbColonne), i As Integer
Dim Total(NbColonne) As Integer
Dim Obj As OLEObject
Dim Col As Integer, L As Integer
    With Sheets("Feuil2")
    For i = 1 To NbColonne
        TB(i) = .Cells(1, i).Left
    Next i
    For Each Obj In .OLEObjects
        'verifie s'il s'agit d'une Checkbox
        If TypeOf Obj.Object Is MSForms.CheckBox Then
             Col = Obj.Left
             For i = NbColonne To 2 Step -1
                If Col > TB(i) Then Exit For
             Next i
             Total(i) = Total(i) + Abs(Obj.Object.Value)
        End If
    Next Obj
    For i = 1 To NbColonne 'adapter la ligne
        .Cells(1, i) = Total(i)
    Next i
    End With
End Sub