C'est un peu complexe dans le cas de segments sur une table.
Il faut créer artificiellement une valeur "sous-total", que j'ai mise en Z1. Sachant que la sélection d'un segment entrainera le recalcul de Z1 ici on pourra déclencher une macro
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
mise_en_couleur
Application.EnableEvents = True
End Sub