Conditionnel et diagramme de Gantt + alerte outlook

Bonjour à tous,

Je viens vers vous car je tourne en rond et je n’arrive pas à trouver solution à mon problème.

J'ai créé (grâce à votre forum d'ailleurs) un fichiers pour la gestion des taches de mon service, avec entre autre un diagramme de Gantt, mais je n'arrive pas à faire les finitions lol.

En effet, il y a deux choses à faire que je n'arrive pas :

1) supprimer la barre dans le diagramme lorsque la case 'I' c'est à dire 'STATUT' est en 'FIN'

2) créer une alerte sur outlook lorsque la date d'échéance arrive 2 jours avant.

Pour cette dernière, j'ai trouvé un code VBA sur internet que j'ai bidouillé mais ça ne fonctionne pas!

Je fais donc appel à vous afin de m'aider car là je ne trouve plus de solution.

Merciiiii d'avance pour votre aide et heureusement qu'il y a ce genre de forum car en interne pas facile de trouver de l'aide

Ci-joint le mail et le code vba utilisé...

Sub Alertes()

Set wbk = GetObject("D:\Mes documents\PORPOSITION3.xls")

Set sh = wbk.Sheets("Feuil1")

Dim OlApp As Object, M As Object, C As Range

With sh

If .[H4] > .[H1] Then

Set OlApp = CreateObject("Outlook.Application")

Set M = OlApp.CreateItem(olMailItem)

M.Subject = "attention, date d'échéance arrive à terme."

M.Body = .[C3].Text & vbCrLf & vbCrLf & .[A3].Text

M.Recipients.Add .[D3]

M.Send

End If

End With

wbk.Close False

End Sub