Private Sub coche_1_1_Click()
Call code_commun(1, 1)
End Sub
Sub code_commun(ligne As Integer, colonne As Integer)
Dim cpt&, cpt2&, ligne&, colonne%
cpt = 0
cpt2 = 0
For i = 1 To 3
If ActiveSheet.OLEObjects("coche_" & i & "_" & colonne).Object.Value = True Then cpt = cpt + 1
If ActiveSheet.OLEObjects("coche_" & ligne & "_" & i).Object.Value = True Then cpt2 = cpt2 + 1
Next i
Cells(6, 2 + colonne) = cpt
Range("B" & ligne + 6) = cpt2
End Sub