Comment indiquer date d'éxécution macro dans une cellule

Bonjour,

Quand un délai est dépassé, j'envoie un mail par VBA.

Comment indiquer dans la colonne 18 (S), la date du jour ?(date d'envoi du mail)

Voici le code vba :

Sub envoimail()
'
'envoi mail si dossier n'est pas à jour
'
'déclaration objets
'
Dim messagerie As Object
Dim email As Object
Dim cel As Range
Dim cond1 As Integer

Set messagerie = CreateObject("Outlook.Application")

cond1 = 1 'jours

For Each cel In Range("A3:A" & Range("A3").End(xlDown).Row)
If cel.Offset(, 16).Value = cond1 Then

Set email = messagerie.CreateItem(0)

With email
.to = cel.Offset(, 0).Value
.Subject = cel.Offset(, 19).Value
.body = "Bonjour, votre autorisation de xxxx n° " & cel.Offset(, 4) & " pour la commune " & cel.Offset(, 2) & ", arrive à expiration le " & cel.Offset(, 13) & "." & vbCrLf & "Veuillez adresser à xxxxx, une autorisation de stationner en cours de validité, pour maintenir la prise en charge de xxxxx." & vbCrLf & "Bien cordialement," & vbCrLf & "xxxxxxxxxxxxxxx"

.ReadReceiptRequested = True
.display ' à remplacer par .send si ok
End With

Set email = Nothing

End If
Next cel

Set messagerie = Nothing

End Sub

Merci d'avance,

Excel 2010