option boutton: comment calculer une somme dans un tableau

pouvez vous m'aider à coder la macro correspondante au bouton Total dans le document ci-joint... c'est vraiment engoissant!!
merci d'avance

Bonjour,
Pourquoi ne pas nommer les options

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Dim T1 As Integer If (A1 + A2 + A3 + A4 + A4 + A5 + A6) <> 0 Then T1 = T1 + 3 If (B1 + B2 + B3 + B4 + B4 + B5 + B6) <> 0 Then T1 = T1 + 3 '........les autres colonnes ....... Range("G13") = T1 End Sub

---

A pour la première colonne d'option
B pour la seconde
C'est court et peut-être plus lisible

Bonjour helas et merci pour la réponse :)
l'objectif de la macro est de calculer la somme des boutons radio actifs multiplier par leurs coefficients dans l'entête du tableau...

c ca enfaite le problème

Merci

Sans vba

Dans la propriété de chaque OptionButton tu mets LinkedCell l'adresse de la cellule correspondante (OptionButton1: C7, OptionButton2: D7...etc)
Tu mets dans la cellule C13 la formule =NB.SI(C7:C12;VRAI)*C6
de même pour D13..F13
il ne reste que G13 = =SOMME(C13:F13)

idem pour les autres tableaux

revoir la macro reset pour ne pas supprimer la formule en G13

Merci beaucoup:)