Bonsoir,
Un exemple, avec un double click sur la feuille, comme "G5" contient "payé", avec la mise en forme que j'ai choisie pour les cellulles C5, D5, E5 et F5 seront colorée en rouge
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'réaliser ta mise en forme pour C5, D5, E5 et F5, exemple
If Range("G5") = "Payé" Then Range("C5:F5").Interior.Color = 255
End Sub