'### Constantes à adapter ###
Const MODELE_COULEUR As String = "R36:R44"
Const MA_PLAGE As String = "C5:O32"
'############################
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
Dim C As Range
'---
Set R = Range(MA_PLAGE)
If Not Application.Intersect(Target, R) Is Nothing Then
With Target.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.Bold = False
End With
'---
Set R = Range(MODELE_COULEUR)
For Each C In R
If UCase(Target) = UCase(C) Then
Application.EnableEvents = False
Target = C
With Target.Font
.Color = C.Font.Color
.Bold = C.Font.Bold
End With
Application.EnableEvents = True
Exit For
End If
Next C
End If
End Sub