Problèmes de conditions et affichage msgbox

Option Explicit
Sub Ellipse7_Cliquer()
   Dim Wsh As Worksheet
   Set Wsh = ActiveSheet
   Wsh.[C11:C30,J11:J30].ClearContents
   Wsh.[D11].FormulaR1C1 = "=R9C12-RC3"
   Wsh.[D12:D30].FormulaR1C1 = "=R[-1]C-RC3"
   Wsh.[K11].FormulaR1C1 = "=R30C4-RC10"
   Wsh.[K12:K30].FormulaR1C1 = "=R[-1]C-RC10"
   With Wsh.Range("D12:D30,K11:K30")
      .FormatConditions.Delete
      .Cells(1, 1).Activate
      .FormatConditions.Add(Type:=xlExpression, Formula1:="=ESTVIDE(C12)").NumberFormat = ";;;"
      End With
   End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Rng As Range, Zon As Range, T(), L&, Trop#, TotDisp#
   If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
   If Intersect([C11:C30,K11:K30], Target) Is Nothing Then Exit Sub
   Set Rng = Me.[C11:C30,J11:J30]
   TotDisp = Me.[L9].Value
   Trop = -Me.[K30].Value
   If Trop <= 0 Then Exit Sub
   If MsgBox(Trop & " heure(s) spécifiée(s) en trop vont être annulées.", vbOKCancel, Me.Name) = vbCancel Then Exit Sub
   For Each Zon In Rng.Areas
      T = Zon.Value
      For L = 1 To UBound(T, 1)
         If T(L, 1) > TotDisp Then T(L, 1) = TotDisp
         TotDisp = TotDisp - T(L, 1): Next L
      Application.EnableEvents = False
      Zon.Value = T
      Application.EnableEvents = True: Next Zon
   End Sub

Option Explicit
Sub Ellipse7_Cliquer()
   Dim Wsh As Worksheet
   Set Wsh = ActiveSheet
   Wsh.[C11:C30,J11:J30].ClearContents
   Range("C11:D30,J11:K30").ClearContents
   Wsh.[D11].FormulaR1C1 = "=R9C12-RC3"
   Wsh.[D12:D30].FormulaR1C1 = "=R[-1]C-RC3"
   Wsh.[K11].FormulaR1C1 = "=R30C4-RC10"
   Wsh.[K12:K30].FormulaR1C1 = "=R[-1]C-RC10"
   With Wsh.Range("D11:D30,K11:K30")
      .FormatConditions.Delete
      .Cells(1, 1).Activate
      .FormatConditions.Add(Type:=xlExpression, Formula1:="=ESTVIDE(C11)").NumberFormat = ";;;"
      .FormatConditions.Add(Type:=xlExpression, Formula1:="=D11<=0").Interior.Color = &HBABAFF
      End With
   End Sub