XL 2016 plusieurs mise en forme conditionnelle

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [T]) Is Nothing Then Exit Sub
Dim dat As String
Cancel = True
dat = InputBox("Entrez la date que vous voulez affecter à " & Target(1).Address(0, 0) & " :")
If IsDate(dat) Then Creer_Date Target, CDbl(CDate(dat))
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [T]) Is Nothing And Target.Count = 1 And _
    LCase(Target(1)) = "c" Then Creer_Date Target, CDbl(Date) 'date du jour
End Sub

Sub Creer_Date(c As Range, dat As Double)
Dim a()
If Not IsArray([Dates]) Then
    ReDim a(1 To [T].Rows.Count, 1 To [T].Columns.Count)
    Me.Names.Add "Dates", a 'création du nom défini dans la feuille
End If
a = [Dates]
a(c.Row - [T].Row + 1, c.Column - [T].Column + 1) = dat
Me.Names.Add "Dates", a 'modification du nom défini dans la feuille
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [T]) Is Nothing Or LCase(Target(1)) <> "c" Then Exit Sub
Dim dat As String
Cancel = True
dat = InputBox("Entrez la date que vous voulez affecter à " & Target(1).Address(0, 0) & " :")
If IsDate(dat) Then Target(1, 34) = CDate(dat)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [T]) Is Nothing And Target.Count = 1 Then _
    Target(1, 34) = IIf(LCase(Target) = "c", Date, "") 'date du jour
End Sub

=DECALER(C7;;33)>=$A$1
=EXP(LN(DECALER(C7;;33)))<$A$1

dat = InputBox("Entrez la date que vous voulez affecter à " & Target(1).Address(0, 0) & " :", , Target(1, 34))

=SOMMEPROD((D8:AG1000=AL5)*(D6:AG6=AL6))