'Va chercher la valeur du Chemin "Chronos"
Range("ZONE_DOSSIER_CHRONOS").Select
sChgestionChronos = ActiveCell.Value
'MsgBox sChgestionChronos
If Dir(sChgestionChronos, vbDirectory) <> "" Then
'MsgBox " Le répertoire Chronos existe"
Else
MsgBox ("ERREUR : Le répertoire " & sChgestionChronos & " est inaccessible où n'existe pas, vérifier le réseau où contactez votre Administrateur")
GoTo Fin:
End If