XL 2013 envoie mail pdf chemin bureau Windows ??

Public Sub Envoyer_cadencier()
Dim Omg As Object
Dim msg As String
Dim tcl As Long
Dim Fic As String
    On Error GoTo fin
    Fic = ThisWorkbook.Path & "\cadencier.pdf"      ' donner le nom voulu pour le correspondant
    
    If Dir(Fic) <> "" Then Kill Fic    'on crée le fichier PDF dans le même dossier que le fichier source
    Sheets("Cadencier").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fic _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, OpenAfterPublish:=False
    Set Omg = CreateObject("CDO.Message")
    With Omg
        .Subject = "Cadencier de commande" & " " & [C8]    'sujet
        .From = [H6].Value      ' adresse mail du vendeur
        .To = [H5].Value              ' Email du client
        .TextBody = "Bonjour " & [M5] & ", Comme convenu ensemble, Veuillez trouver ci-joint votre Cadencier en attente de signature pour livraison automatique. Bien à vous," & [C3]
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With
        .addattachment (Fic)
        .send
    End With
    Kill Fic    'après l'envoi la feuille PDF est supprimée
    MsgBox "Envoi du cadencier au client bien effectué"
fin:       ' si erreur on sort de la procédure : description de l'erreur survenue
If Err.Number <> 0 Then MsgBox "Anomalie détectée" & vbLf & vbLf & Err.Description
End Sub