XL 2016 Envoi des mails d'après Excel en fonction des dates

[EL MOKADEM]

Bonjour,
Je dois mettre en place une alerte avant sur les dates de maintenance des véhicules pour un fichier Excel. Ceci afin de bien suivre la maintenance des véhicules .
Pourtant mon code ne marche pas avec toutes les lignes du tableau excel.

Sub Mail_Outlook()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim strsubject As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strsubject = "ALERTE MAINTENANCE VEHICULE OU MATERIEL "


strbody = "Bonjour, " & vbNewLine & vbNewLine & _
"Ceci est la ligne 1" & vbNewLine & _
"Ceci est la ligne 2" & vbNewLine & _
"Ceci est la ligne 3" & vbNewLine & _
"C'est la ligne 4"



With OutMail
.To = "Test@gmail.com"
.CC = ""
.BCC = ""
.Subject = strsubject
.Body = strbody
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Sub VerifEnvois()
Dim i As Long
With ThisWorkbook.Worksheets("Feuil1")
For i = 5 To .Range("A" & .Rows.Count).End(xlUp).Row
If CDate(.Range("G" & i).Value) <= Date And .Range("M" & i).Value <> "x" Then
.Range("M" & i).Value = "x"
Mail_Outlook

End If
Next i
End With
End Sub

Merci d’avance pour votre aide et vos propositions.

 

[Hasco]

Bonjour,

For i = 3 et non 5, la première ligne de données est la 3

A bientôt

 

[EL MOKADEM]

Bonjour,
J'ai essayé votre proposition pourtant quand je rajoute d'autre véhicules, ils ne parcourt pas tout le tableau.
Merci

 

[Hasco]

Re,

Ben faut dire que travailler sur des images, c'est pas facile

Bonne soirée

 

[EL MOKADEM]

Je mets à disposition ici le fichier excel