Sub Rappel()
Dim C As Range, olApp As Object, M As Object
Set olApp = CreateObject("Outlook.application")
For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
If IsDate(C.Offset(, 1)) And Date - C.Offset(, 1) > 5 Then
Set M = olApp.CreateItem(olMailItem)
With M
.Subject = C.Offset(, 4).Value
.Recipients.Add C.Offset(, 3).Value
.Send
End With
End If
Next C
End Sub