Problème sur code

Bonjour,

Voilà je suis actuellement en train de travailler sur un code qui fonctionne au début mais ne fonctionne plus depuis que je l'ai bidouillé ^^. Ce code j'aimerais le modifier afin qu'il puisse totaliser dans une cellules la somme des valeurs contenues dans des cellules coloriées. Voici le code:

Sub SomCelJaune()
Range("B8:AI25").select
Selection.Value= "p"
Reference = [A36].Interior.ColorIndex
Dim CompterCellules As Integer, iCell, PlageTest
Set PlageTest = Range("B8:AI25")
Application.ScreenUpdating = False
For Each iCell In PlageTest
If iCell.Interior.ColorIndex = Reference Then
SomReference = p + 1
End If
Next iCell
Range("C29") =p
End Sub

mais ça ne fonctionne pas du tout :).