Mise en forme conditionnelle en vba

Sub MFCCellule()
  With Selection
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
                          "=INDEX('CSN-1'!$A$1:$CZ$979;EQUIV($C6;'CSN-1'!$A$1:$A$979;0);EQUIV(D6;'CSN-1'!$A$3:$MM$3;0))>1"
    With .FormatConditions(1)
      .StopIfTrue = False
      With .Interior
        .Pattern = xlPatternRectangularGradient
        .Gradient.RectangleLeft = 0.5
        .Gradient.RectangleRight = 0.5
        .Gradient.RectangleTop = 0.5
        .Gradient.RectangleBottom = 0.5
        .Gradient.ColorStops.Clear
        With .Gradient.ColorStops.Add(0)
          .ThemeColor = xlThemeColorDark1
          .TintAndShade = 0
        End With
        With .Gradient.ColorStops.Add(1)
          .Color = 5287936
          .TintAndShade = 0
        End With
      End With
    End With
  End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ActiveWindow.DisplayWorkbookTabs = True
  Application.Calculation = xlAutomatic
  ActiveWindow.DisplayGridlines = True
End Sub


Private Sub Workbook_Open()  Application.Calculation = xlManual
  MsgBox "Ne pas faire de copier-coller lors de la saisie au risque de perdre le bénéfice des formules et des mises en forme conditionnelles" & Chr(10) & Chr(10) & "En cas d'anomalie dans le report des CA, saisir les jours en moins ou - ou en + dans la colonne Entrée" & Chr(10) & Chr(10) & "En cas d'anomalie dans le report des RC, saisir les heures en - ou en + dans des colonnes de Dimanche", vbExclamation, "Consignes d'utilisation du fichier"
  ActiveWindow.DisplayWorkbookTabs = False
  ActiveWindow.DisplayGridlines = False
  Sheets("Accueil").Select
  Range("A1").Select
End Sub

With Selection

With Target

With Range()