macro valeur de cellule dépend de la couleur des cellules de la ligne...

Function CompteAction(Rng As Range, Zone As Range)
  Dim Col As Long, Lig As Long
  Dim PLig As Long, DLig As Long  ' Variables première et dernière ligne
  Dim PCol As Long, DCol As Long  ' Variables première et dernière colonne
  Dim IndCoul, FlgOk As Boolean
  Application.Volatile
  ' Initialisation des variables
  With Sheets("Feuil1")
    PLig = Zone.Row
    PCol = Zone.Column
    DLig = PLig + Zone.Rows.Count - 1
    DCol = PCol + Zone.Columns.Count - 1
  End With
  IndCoul = Rng.Interior.ColorIndex
  CompteAction = 0
  ' Boucle sur cellules
  For Lig = PLig To DLig
    For Col = PCol To DCol
      If Cells(Lig, Col).Interior.ColorIndex <> xlNone Then
        If Cells(Lig, Col).Interior.ColorIndex = IndCoul Then
          FlgOk = True
        Else
          FlgOk = False
        End If
      End If
    Next Col
    [B][COLOR=blue]If FlgOk = True Then[/COLOR][/B]
[B][COLOR=blue]     CompteAction = CompteAction + 1[/COLOR][/B]
[B][COLOR=blue]     FlgOk = False[/COLOR][/B]
[B][COLOR=blue]   End If[/COLOR][/B]
  Next Lig
End Function

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Application.Calculate
End Sub