Générer une alerte Outlook via fichier Excel

Bonjour à tous,

J'aimerais savoir comment générer une alerte sur Outlook via mon fichier excel de suivi de visite médicale quand j'arrive à 15 jours avant la prochaine date de visite.

Pour le moment, j'ai créé cette macro, mais elle ne me prend que la première ligne alors que je voudrais qu'elle s'applique sur l'ensemble de ma colonne .

Sub Rappel_VM()

Dim OlApp As Object, myItem As Object

Set OlApp = CreateObject("Outlook.Application")

Set myItem = OlApp.CreateItem(3)

myItem.Subject = "Rappel PRENDRE RDV POUR VISITE MEDICALE"

myItem.Body = Range("A2").Value

myItem.ReminderTime = Range("G2").Value - 15

myItem.DueDate = Range("G2").Value

myItem.ReminderSet = True

myItem.Display

End Sub

Je ne sais pas si mon explication est très clair.

Je vous joins mon fichier pour plus de précision.