Besoin d'aide SVP

bonsoir tous le monde

travail demandée:

chaque fois ou la cellule E contient le texte "attention ,date dépasée" alors le contenu de la cellule F sera envoyé automatiquement sur boite mail si non pas de texte à envoyée

(exemple si E5 contient "attention date dépassé"alors le texte dela cellule F5 sera envoyé sur boite mail )

et merci d'avance pour votre aide et explication

Bonjour,

pour faire ce travail j'utiliserais une feuille masqué, et l'événement calculate de cette feuille.

par exemple l'onglet nommé "test" avec en cellule A1 la formule =Feuil1!E5

sur la page code de la feuille "test"

Private Sub Worksheet_Calculate()
If [A1] = "attention ,date dépasée" Then
EnvoiMail
End Sub

Sub EnvoiMail()
'activé la référence "Microsoft Outlook x.x Object Library"
  Dim OutObj As Object, OutMail As Object
  Dim sAdrMail As String, strSujet As String, strBody As String

  Set OutObj = CreateObject("Outlook.Application")
  Set OutMail = OutObj.CreateItem(0)

  sAdrMail = "jean.peupu@societe.com"
  strSujet = "attention ,date dépasée"
  strBody = "Bonjour," & "<BR><BR>" _
          & "Veuillez ...."
  With OutMail
    .to = sAdrMail
    .Subject = strSujet
    .htmlbody = strBody
'    .Display
    .send
  End With

  Set OutMail = Nothing
  Set OutObj = Nothing
End Sub