XL 2010 supprimer pdf dans dossier après envoi outllok

Bonsoir le forum

Je reviens vers vous pour une demande spéciale
j'ai une macro qui joint des fichier PDF qui se trouvent dans un dossier dans un mail, je voudrais une fois le message envoyé que le dossier soit vide, j'ai essayé avec kill sobject mais en vain, une petite aide de votre part serait la bienvenue

merci

Public Sub Envois_Valerdine()
Dim olapp As Object
Dim olmail As Object
Dim Rep$, Nom$, Rep_Pdf$

Set olapp = CreateObject("Outlook.Application")
Set olmail = olapp.CreateItem(0)

Rep = "C:\Users\Documents\Lescury\valerdine\"
Rep_Pdf = Dir(Rep & "*.*")

Do While Rep_Pdf <> ""
Nom = Rep & Rep_Pdf
Rep_Pdf = Dir
With olmail
.To = "toto.r@gmail.com"
.Subject = "test"
.Bcc = ""
.Attachments.Add Nom
.Display
End With
Loop

Set olapp = Nothing
Set olmail = Nothing

► Kill sObject ◄


End Sub