Private Function MeFCR1C1(ByVal Rng As Range, ByVal Formule As String, ByVal StopIfTrue As Boolean) As FormatCondition
With ActiveSheet.Names.Add(Name:="NomTemporairePourMeFC", RefersToR1C1:=Formule)
Application.GoTo Rng(1, 1)
Dim F As String: If Application.ReferenceStyle = xlR1C1 Then F = .RefersToR1C1Local Else F = .RefersToLocal
Set MeFCR1C1 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:=F)
.Delete: End With
MeFCR1C1.StopIfTrue = StopIfTrue
End Function