Mise en forme conditionnelle et format R1C1

Private Function FmtCondAdd(Rg As Range, ExprR1C1 As String) As FormatCondition
Dim SvgFmt As String, SvgFml As String
With Rg.Rows(1)
   SvgFmt = .NumberFormat: SvgFml = .Formula
   .NumberFormat = "General": .FormulaR1C1 = "=" & ExprR1C1: .Select
   Set FmtCondAdd = Rg.FormatConditions.Add(Type:=xlExpression, Formula1:=.FormulaLocal)
   .Formula = SvgFml: .NumberFormat = SvgFmt
   End With
End Function

Private Sub FmtCondAddDeleted()
For Each Rg In Intersect(Me.[AidVM:AidDescr], RgLst.EntireRow).Columns
   With FmtCondAdd(Rg, "RC1=""X""").Interior: .PatternColor = RGB(255, 128, 192): .Pattern = xlUp: End With
   Next Rg
End Sub

With Application: .Calculation = xlCalculationManual: .EnableEvents = False: End With
For Each RCol In theRange.Columns
      RCol.FormatConditions.Delete
      FmtCondAdd(RCol,"RC<>RC[" & offset_simulation_NewtoOld & "]").Font.Bold = True
      Next RCol
With Application: .Calculation = xlCalculationAutomatic: .EnableEvents = True: End With

For Each Rcell In theRange
     Rcell.FormatConditions.Delete
     expression = "=" &       Rcell.Offset(0,Offset_simulation_NewtoOld).AddressLocal(ReferenceStyle:=xlR1C1,    RowAbsolute:=False, ColumnAbsolute:=False, RelativeTo:=Rcell)
            Rcell.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual,            Formula1:=expression
      Rcell.FormatConditions(1).Font.Bold = True
Next Rcell