Afficher une Valeur selon la couleur

=SI(SOMMEPROD(N($C$5:$C5=$C5))=1;SOMMEPROD((DROITE($C$5:$C$2760;2)=DROITE($C5;2))*($D$5:$D$2760));"")

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim dl As Integer 'déclare la variable dl (dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim coul As XlColorIndex 'déclare la variable coul (COULeur)
Dim tot As Long 'déclare la variable tot (TOTal)

With Sheets("Sud-Est") 'prend en compte l'onglet "Sud-Est"
    dl = .Cells(Application.Rows.Count, 3).End(xlUp).Row 'définit la dernière ligne dl
    Set pl = .Range("C5:C" & dl) 'définit la plage pl
End With 'fin de la prose en compte de l'onglet "Sud-Est"
'si le double-clis a lieu ailleurs que dans la plage pl, sort de la procédure
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True 'évite le mode édition lié au double-clic
coul = Target.Interior.ColorIndex 'définit la couleur coul
For Each cel In pl 'boucle sur toutes les cellule cel de la plage pl
    'si la couleur de la cellule est identique à coul, redéfinit le total tot
    If cel.Interior.ColorIndex = coul Then tot = tot + cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
Target.Offset(0, 2).Value = tot 'place le total tot dans la colonne E
End Sub