Envoie mail avec sous conditions (excel2003)

Bonjour,

Aprés plusieurs recherches sur le forum j'ai trouvé la moitié de ce que j'ai besoin:
c'est pour cela je viens vers vous demander de l'aide, en faite j'ai ce code ci dessous qui fontionne parfaitement , je souhaite rajouter une condition :
les mails seront envoyé pour rappel à ceux qui sont en retard sachant que -
-les noms sont en colonne C
- les dates en colonne E
-infos generale colonne z
- l'intitulé est fixe " retard de.............."

quand la date est supérieur à la date d'aujoud'hui ça me prépare le mail sur outlook 2003là j'éxecute la macro ...et la colonne concerné peut contenir une centaine de dates
j'ai essayé de faire par exemple quelques manipulation telque:

'For i = 7 To 100

'If Now() >= Cells(i, 9) Then

'Email = Cells(i, 8)
'Subj = "Retard"
Msg = ""
Msg = Msg & "Chèr(e) " & Cells(i, 7) & "," & vbCrLf & vbCrLf
Msg = Msg & "Vous êtes en retard sur le projet " & Cells(i, 4) & " devant se terminer le "
Msg = Msg & Cells(i, 9).Text & "." & vbCrLf & vbCrLf
Msg = Msg & "Nom et Prénom" & vbCrLf
Msg = Msg & "Statut"

Mais j'ai pas reussi...
Quelqu'un a une idée s'il vous plait?


Premier code simple qui fonctionne bien:
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String

MailAd = "jjjjj@jjjj.com"
Subj = "attention verification"
Range("G2") = "Mon texte"

Range("G2").Select

MsgBox Msg
URLto = "mailto:" & MailAd & "?subject=" & Subj
ActiveWorkbook.FollowHyperlink Address:=URLto

' Boucle d'attente que Outlook se lance
Dim WaitBegin As Long, WaitEnd As Long
WaitBegin = Timer
WaitEnd = WaitBegin + 1
Do Until Timer >= WaitEnd
DoEvents
Loop

SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys Msg

End Sub

En vous remerciant d'avance

Bonne journée