If Chemin <> "" Or Dir(Chemin, vbDirectory) <> "" Then
Application.Run "Enregistersous"
If Chemin = "" Or Dir(Chemin, vbDirectory) = "" Then
msga = MsgBox("Fichier non accessible, vérifier que le connexion Internet est Ok et que le VPN est UP", vbAbortRetryIgnore + vbCritical, "Accès au VPN")