Changement de couleur cellule : calcul automatique

Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'*********************************************************
' Effectuer la somme des cellules en couleur *
'*********************************************************
Dim Cel As Range
Dim Som As Double
  Application.Volatile
  If PlageCouleur.Cells.Count > 1 Then
    SOMME_SI_COULEUR = CVErr(xlErrValue)
    Exit Function
  End If
  For Each Cel In PlageSomme
    If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel
  Next
  SOMME_SI_COULEUR = Som
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Application.Calculate
End Sub