diff --git a/data-raw/01_preparation.R b/data-raw/01_preparation.R
index cfbd57ec3150524c34fc4ea25121b1ab2ce02334..ad4a132554fdaa2e1b254cd4c0ca951f4fc79667 100644
--- a/data-raw/01_preparation.R
+++ b/data-raw/01_preparation.R
@@ -19,7 +19,7 @@ library(datalibaba)
 # mes_departements <- list_dep_in_reg(ma_region)
 
 # Recherche du dernier millesime disponible
-fichiers <- list.files("X:/SCTE/DEP/Donnees_confidentielles/Conjoncture/ECLN/Publication"
+fichiers <- list.files("X:/SCTE/CSD/DONNEES_CONFIDENTIELLES/_niveau_2/Conjoncture/ECLN/Publication"
                        ,include.dirs = FALSE,full.names = FALSE, pattern = "stat_info")
 # fichiers <- list.files('data-raw',include.dirs = FALSE,full.names = FALSE, pattern = "stat_info")
 millesime <- fichiers %>%
@@ -27,8 +27,8 @@ millesime <- fichiers %>%
   max()
 # fichier_donnees <- paste0("data-raw/stat_info_data_regionaux_",millesime,".csv")
 # fichier_calage <- paste0("data-raw/cale_ventile_",millesime,".xls")
-fichier_donnees <- paste0("X:/SCTE/DEP/Donnees_confidentielles/Conjoncture/ECLN/Publication/stat_info_data_regionaux_",millesime,"_.csv")
-fichier_calage <- paste0("X:/SCTE/DEP/Donnees_confidentielles/Conjoncture/ECLN/Publication/cale_ventile_",millesime,".xls")
+fichier_donnees <- paste0("X:/SCTE/CSD/DONNEES_CONFIDENTIELLES/_niveau_2/Conjoncture/ECLN/Publication/stat_info_data_regionaux_",millesime,"_.csv")
+fichier_calage <- paste0("X:/SCTE/CSD/DONNEES_CONFIDENTIELLES/_niveau_2/Conjoncture/ECLN/Publication/cale_ventile_",millesime,".xls")
 
 # 1. Récupération des données
 # ------------------------------------------------------------------------------------------------------