Formule cellule et mail auto

bonjour,

J'ai un petite problème avec l'excution de la macro ci-dessous

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg, Plg

Lg = Target.Row
Set Plg = Application.Union(Range("W" & Lg), Range("AA" & Lg), Range("AE" & Lg), Range("AI" & Lg))
If Application.Sum(Plg.Value) <> Range("T" & Lg) Then Exit Sub

Application.EnableEvents = False
Dim TablCode
Dim Email_Subject, Email_Send_From, Email_Send_To, _
   Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant

TablCode = Array(31, 34, 36, 18, 99)
TablTargetColumns = Array(21, 25, 29, 33) 'Colonnes Code
TablNoemptyColumns = Array(24, 28, 32, 36)

notEmpty = False

For I = LBound(TablNoemptyColumns) To UBound(TablNoemptyColumns)
  If Not IsEmpty(Target.Parent.Cells(Target.Row, TablNoemptyColumns(I)).Value) And _
     Target.Parent.Cells(Target.Row, TablNoemptyColumns(I) - 2).Value <> "99A" Then
    OneOfValues = False
    For Each c In TablCode
      If c = Target.Parent.Cells(Target.Row, TablTargetColumns(I)).Value Then
        OneOfValues = True
        Exit For
      End If
    Next c
    If OneOfValues Then
      notEmpty = True
      Exit For
    End If
 End If
Next
If notEmpty Then
               'Macro email
               '--------------------------------------------------------

Mon code fonctionnais très bien mais j'ai voulu rajouter une condition pour avoir des complements dans le mail envoyé.

J'ai rajouté ce code si:

Dim Lg, Plg

Lg = Target.Row
Set Plg = Application.Union(Range("W" & Lg), Range("AA" & Lg), Range("AE" & Lg), Range("AI" & Lg))
If Application.Sum(Plg.Value) <> Range("T" & Lg) Then Exit Sub

La fonction bien, avant d'envoyer le mail la somme des cellules AA+AE+AI+W= cellule T

dans les cellules de la colonne T il y a cette formule =SI(S9>R9;(S9-R9);SI(S9<R9;"";SI(S9=R9;""))) qui me serre jsute a calcule le temps de retard entre un horaire prévu et un horaire rélle

Mon problème: mon mail part si je mets moi-même le résultat dans la colonne T,

- quand toutes mes conditions sont remplis et que la cellule T utlise une formule auto =mail ne part pas

- quand toutes mes condition sont remplis et que j'ecrit moi-m$eme dans la cellule T= mail part OK

Comment faire pour que mon mail parte tout en gardant la cellule de la collone T automatique?

Merci