Fonction somme.si par rapport à la couleur de cellule

Option Explicit

Sub SommeSiPasJaune()
    Dim Col As Integer, LigPre As Integer, LigDer As Integer, i As Integer
    Dim TotalSansJaune As Double
    '
    Col = 1
    LigPre = 1
    LigDer = Columns(Col).Find("*", , , , xlByColumns, xlPrevious).Row
    TotalSansJaune = 0
    For i = LigPre To LigDer
        Cells(i, Col).Select
        If (Selection.Interior.ColorIndex <> 36) Then
            TotalSansJaune = TotalSansJaune + Cells(i, Col).Value
        End If
    Next i
    Cells(1, 3).Value = TotalSansJaune
End Sub