Problème enregistrement PDF

Bonjour,

Je rencontre un problème avec votre code …
Dim fichier As String


Date_F = Format(Date, "dd.mm.yyyy")
'adaptez le nom de la feuille
With Worksheets("SC_8033")
fichier = "\" & Date_F & .Range("I2") & ".pdf"
Dossier = "V:\METHODES INDUSTRIALISATION\Projets\PROCERT\SC80XX\Demi-Corps\Sauvegarde PVRI"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

Il fonctionne mais quand j'appuie sur mon bouton enregistrer il supprime l'ancien enregistrement pour le remplacer par le nouveau ! J'ai remarqué que quand la date n'est pas la même alors il ajoute bien l'enregistrement mais si c'est à la même date alors il le remplace . Le nom du dossier est toujours le même donc quand la date et le nom sont à l'identique alors il me le remplace au lieu de l'ajouter.

Merci d'avance