XL 2019 Changer chemin d'accès VBA

chemin = InputBox("Indiquer le chemin complet du Repertoire des fiches vendeurs" _
& Chr(13) & Chr(13) & "Exemple C:\Serveur1\Data\Projets" & Chr(13) & _
"Les Majuscules ou Minuscules n'ont pas d'importance")

'---------------------------------------------------------
' On va traiter si le chemin est CORRECT , sinon on pourra recommencer OU
' Quitter la Sub

Direction = Dir(chemin & "\*.xlsx")
If Direction = "" Then
mes = MsgBox(" Le chemin entré est erroné ou ne comporte pas" & Chr(13) & _
" de fichiers Excel", vbOKCancel)
If mes = vbCancel Then alors = MsgBox(" voulez vous quitter l'application ?", vbYesNo)
If alors = vbYes Then
Exit Sub
Else
GoTo deb
End If
End If
' Fin du traitement de Verification du Chemin
'-------------------------------------------------

Sub recuppath()
With Application.FileDialog(msoFileDialogFolderPicker)
  .Title = "Selection d'un répertoire"
  .InitialFileName = StrPath
  .Show
   Select Case .SelectedItems.Count
     Case Is > 0: SelectedFolder = .SelectedItems(1)
     Case Else: SelectedFolder = ""
   End Select
  End With
  GetFolder = SelectedFolder
MsgBox "le répertoire de sauvegarde est : " &GetFolder
End Sub

Sub ExportFeuilleEnPdf()
Dim LHeure$, LaDate$, Chemin$, NomFichier$, NomFeuille$, CheminComplet$
Application.ScreenUpdating = False
If Not shexists(ActiveCell.Value) Then  ' Sécurité si la feuille n'existe pas.
    MsgBox "Cette feuille n'existe pas."
    Exit Sub
End If
' Sélection de la feuille
Sheets(ActiveCell.Value).Activate
' Construction du nom de fichier
LHeure = Format(Time, "HH.MM")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
Chemin = ThisWorkbook.Path & "\"
If MsgBox("sauvegarde dans le répertoire: " & Chemin, vbYesNo) = vbNo Then
    With Application.FileDialog(msoFileDialogFolderPicker)
  .Title = "Selection d'un répertoire"
  .InitialFileName = StrPath
  .Show
   Select Case .SelectedItems.Count
     Case Is > 0: SelectedFolder = .SelectedItems(1)
     Case Else: SelectedFolder = ""
   End Select
  End With
  Chemin = SelectedFolder & "\"
End If
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name
' Construction du chemin complet
CheminComplet = Chemin & NomFichier & " " & NomFeuille & " " & LaDate & " " & LHeure & ".pdf"
' Création fichier PDF

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & CheminComplet)
' Retour au Listing
Sheets("Listing").Activate
End Sub

' Construction du chemin complet
CheminComplet = Chemin & NomFichier & " " & NomFeuille & " " & LaDate & " " & LHeure & ".pdf"

CheminComplet = Chemin &  NomFeuille & " " & LaDate & " " & LHeure & ".pdf