XL 2019 Verification de l'existance d'un fichier ( plante)

Bonsoir,
je vous sollicite car après des heures de recherche et réflexion, je ne parviens pas a resoudre mon soucis.
j'ai trouvé le soucis mais je ne parviens pas a le corriger .

Sub Enreg_Fournisseur1_Pdf()
Dim FileName As String
Dim LeNom As String, LeRep As String
Static Chemin As String
Chemin = LeRep & "\" & LeNom
L'origine du problème se situe ici avec ... Chemin = LeRep & "\" & LeNom j'obtient bien la création de la commande mais si la macro est lancer une deuxième fois
il devrait trouver que le fichier existe et crée une commande avec la mention "Rajout" mais il ne le fait que si je supprime le "\" Chemin = LeRep & LeNom

LeNom = Range("J6").Value
LeRep = ThisWorkbook.Path & "\Commandes Fournisseurs\"

FileName = VBA.FileSystem.Dir(Chemin)
If FileName = VBA.Constants.vbNullString Then
Call Filtrer_Défiltrer_Fournisseur1
Attente (500)
Call Filtrer_Défiltrer_Fournisseur1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
LeRep & LeNom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
MsgBox "La commande à été sauvegardée au format PDF dans le Dosssier Commandes Fournisseurs !"
Else
Call Filtrer_Défiltrer_Fournisseur1
Attente (500)
Call Filtrer_Défiltrer_Fournisseur1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
LeRep & LeNom & " Rajout" & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
MsgBox "Le Rajout de commande à été sauvegardée au format PDF dans le Dosssier Commandes Fournisseurs !"
End If
End Sub

un grand merci pour vos suggestions ou la correction de mon code..