Aide macros

Bonjour,

J'ai essayé de construire une macro qui fait le total des données numériques sélectionnées par la couleur bleue à partir d'une commande bouton.
Je sélectionne et annule la sélection des cellules avec un fond bleu pour sélectionner et un fond blanc pour annuler avec les macros suivantes :
Private Sub CommandButton1_Click()
'Sélectionne la valeur
Range("B4").Interior.ColorIndex = Range("B1").Interior.ColorIndex
End Sub

Private Sub CommandButton2_Click()
'Annule la sélection
Range("B4").Interior.ColorIndex = Range("C1").Interior.ColorIndex
End Sub
J'annule toutes les sélections avec une macro du même type que la précédente.
Je compte les cellules sélectionnées avec la macro suivante :

Private Sub CommandButton4_Click()

Dim i, j, n As Integer
'Calcule le nombre de cellules sélectionnées
n = 0
For i = 4 To 12
For j = 2 To 2
If Cells(i, j).Interior.ColorIndex = 5 Then n = n + 1
Next j
Next i

Cells(1, 9) = n
End Sub

J'essaie de calculer la somme des valeurs des cellules sélectionnées avec la macro suivante:

Private Sub CommandButton5_Click()
'Calcule la somme des cellules sélectionnées
Dim i, j, n As Integer

total = 0
For i = 4 To 12
For j = 2 To 2
If Cells(i, j).Interior.ColorIndex = 5 Then
Total = total + Cellule.Value
End If
Next j
Next i
Cells(1, 10) = total
End Sub

Lorsque je clique sur le bouton, j'ai toujours le résultat "0".
Pourriez-vous m'apporter une information pour que je puisse faire fonctionner correctement cette dernière macro.
Est-il possible de rassembler les deux dernières macros pour les utiliser avec un seul bouton ?
Car à partir des deux résultats, je fais une moyenne.
Dans un second temps je souhaiterais imprimer les cellules sélectionnées en bleu, la moyenne et la date de l'impression dans un tableau dont la forme est indifférente.
Ceci est une maquette préparatoire.
Je vous remercie beaucoup.
clévic