Bonjour Fabien et Mara,
En complément de la réponse de Mara dont la réponse est tout à fait pertinente, voici une variante qui repose sur l'utilisation d'une macro.
=====================================================Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Cellule dont la couleur est à prendre en référence
Set RngColor = Range("H2")
'Plages des cellules à colorier si une des 4 cellules inférieures est coloriée
Set RngCel = Union(Range("B2:E2"), Range("G8"), Range("C11
11"))
For Each Cel In RngCel.Cells
'Instruction à supprimer si l'on ne souhaite pas réinitialiser la couleur
Cel.Interior.ColorIndex = xlNone
For i = 1 To 4
If Cel.Offset(i, 0).Interior.ColorIndex <> xlNone Then _
Cel.Interior.ColorIndex = RngColor.Interior.ColorIndex
Next i
Next Cel
End Sub
=====================================================
Tu trouveras en pièce jointe un petit exemple dans lequelil te suffira d'adapter les paramètres RngColor et RngCel pour répondre au problème posé.
Pour information, l'actualisation des couleurs est faite chaque fois que l'on sélectionne ne nouvelles cellules.
Cordialement.
Omicron.