PB VBA envoi mail a date

Bonjour a tous et pour commencer une Bonne année a tous et surtout une bonne santé.

venons en a mon problème j'ai créer un fichier de suivi qui envoi un mail a la date d'échéance.

le problème est sur le date dans le fichier joint un mail devrais partir que pour ceux qui sont en orange mais ce n'est pas le cas tout est envoyé.

je suis sur que je me suis planter quelque part mais je trouve pas .

en plus si je voulais abuser :) serait il possible d'avoir la date d'envoi du mail dans la colonne G

Merci de votre Aide

Salut et bonne année

Voilà un exemple de code qui peut être utilisé

Sub EnvoiMail()
  Dim olApp As Object, M As Object, C As Range
  Dim dLig As Long
  Set olApp = CreateObject("Outlook.application")
  With Sheets("TCD Evacuation")
    ' Dernière ligen remplie de la colonne C
    dLig = .Range("C" & Rows.Count).End(xlUp).Row
    ' Pour chaque cellule de C
    For Each C In .Range("C2:C" & dLig)
      ' S'il y a bien une date
      If IsDate(C.Value) Then
        ' Si sa couleur est orange
        If C.DisplayFormat.Interior.Color = 49407 Then
          If C - Date < 5 And C > Date Then
            Set M = olApp.CreateItem(olMailItem)
            M.Subject = "Alerte"
            M.Body = "La tâche " & C.Offset(, -2) & _
              " n'est pas finalisée, merci de la traiter au plus vite"
            M.Recipients.Add "test@test.com"
            M.display
          End If
        End If
      End If
    Next C
  End With
End Sub

A+