Bonjour,
une proposition qui met une MFC.
Le format d'origine est conservé, plus rien à restaurer :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim fc As FormatCondition
For Each fc In Cells.FormatConditions
If fc.Formula1 = "=VRAI" Then fc.Delete
Next fc
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:="=VRAI"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
End With
End Sub
eric