Sub Rappel()
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim DerL&, Lig&
DerL = WorksheetFunction.Max(Columns(1)) + 2
Application.ScreenUpdating = False
For Lig = 3 To DerL
If UCase(Cells(Lig, 19)) = "YES " Then Exit For
Set OutLookApp = CreateObject("outlook.application")
Set OutLookMailItem = OutLookApp.createItem(0)
With OutLookMailItem
.To = "jcgl@xld.com"
.Subject = "TDI: Envoi d'un rappel"
.Body = "Envoyer un rappel à " & Range("C" & Lig) & " pour le RdV du " & Range("R" & Lig)
.Display
'.Send
End With
Cells(Lig, 19) = "YES "
Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
Next Lig
Application.ScreenUpdating = True
End Sub