Sauvegarde en .PDF sans remplacer le fichier précédent du même nom

Sub devis_bateau_en()

Dim Nom_Sauve As String
Dim Chemin As String, Num As Long

Nom_Sauve = "Devis bateau EN nom - " & Sheets("Choix - Plans").Range("B16").Value & " modèle - " & Sheets("Choix - Plans").Range("B11").Value & " - Qté - " & Sheets("Choix - Plans").Range("D16").Value & ".pdf"

Chemin = ActiveWorkbook.Path & "\devis\" & Nom_Sauve
Num = 0
Do Until Dir(Chemin) = ""
Num = Num + 1
If Chemin Like "*(*).pdf" Then
    Chemin = Left(Chemin, InStrRev(Chemin, "(") - 1) & "(" & Num & ").pdf"
Else
    Chemin = Left(Chemin, Len(Chemin) - 4) & "(" & Num & ").pdf"
end if
Loop


  Sheets("Devis Bateau EN").Select
    Sheets("Devis Bateau EN").Copy
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True 'il y a sûrement ici une option pour empêcher de supprimer un fichier au même nom
       
         Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:="C:\VPLog.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
 ActiveWindow.Close
    Application.DisplayAlerts = True
   

End Sub

Format(Now(), "yyyy-mm-dd hh""h""mm")