Dim chemin As String
With ThisWorkbook
chemin = "S:\INTERNE\Documents_partagés\RHCI_CLIENTS\ENTREPRISES_C_MOULOT_COMMUNS\LOGICIELS\MALETTE_TEST_MOULO T\douments_malette\Avenant 13.pdf"
'chemin = .Path & "\Avenant 13.pdf" 'peut-être plus simple ?
.FollowHyperlink chemin
End With