diff --git a/data-raw/01_preparation.R b/data-raw/01_preparation.R
index cfbd57ec3150524c34fc4ea25121b1ab2ce02334..70eb2a064a800156b759e4188e048702dd67ce03 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
 # ------------------------------------------------------------------------------------------------------
@@ -558,4 +558,3 @@ Epci_plus_50000 <- population %>%
   pull(CodeZone)
 
 rm(population)
-
diff --git a/data-raw/03_secretisation.R b/data-raw/03_secretisation.R
index c8867c6f7b7114e32fd4a9c8676442d12e3a0853..0964c710ee9ba3b3c51e893b23af2845d9d0b15c 100644
--- a/data-raw/03_secretisation.R
+++ b/data-raw/03_secretisation.R
@@ -26,8 +26,8 @@ secret_epci<- ecln_secret_11 %>%
   filter(TypeZone =="Epci")
 
 #secret induit,
-#pour un meme indicateur et un meme département, pour ne pas retrouver la valeur d'un Epci
-#en faisant la somme des variables de l'Epci
+#pour un même indicateur et un même département, pour ne pas retrouver la valeur d'un Epci
+#en faisant la somme des variables de l'EPCI
 
 secret_epci1<- secret_epci %>%
   group_by(Indicateur,DEP,Periode) %>%
@@ -40,8 +40,8 @@ secret_epci1<- secret_epci %>%
     TRUE ~ 0))
 
 
-# secret induit, pour un même Epci,une meme categorie et un meme trimestre, pour ne pas retrouver la valeur d'une variable
-# en faisant la somme des variables de l'Epci
+# secret induit, pour un même Epci, une même categorie et un même trimestre, pour ne pas retrouver la valeur d'une variable
+# en faisant la somme des variables de l'EPCI
 
 secret_epci1<- secret_epci1 %>%
   group_by(TypeZone,categorie,CodeZone,Periode) %>%
@@ -73,7 +73,7 @@ secret_dep<- ecln_secret_11 %>%
   filter(TypeZone =="Départements")
 
 #secret induit,
-#pour un meme indicateur et une meme région, pour ne pas retrouver la valeur d'un département
+#pour un même indicateur et une même région, pour ne pas retrouver la valeur d'un département
 #en faisant la somme des variables du département
 
 secret_dep1<- secret_dep %>%
@@ -119,8 +119,8 @@ secret_dep3<-secret_dep2 %>%
 secret_reg<- ecln_secret_11 %>%
   filter(TypeZone =="Régions" | TypeZone =="France")
 
-# secret induit, pour une même Région,une meme categorie et un meme trimestre, pour ne pas retrouver la valeur d'une variable
-# en faisant la somme des variables de la Région
+# secret induit, pour une même région,une meme categorie et un meme trimestre, pour ne pas retrouver la valeur d'une variable
+# en faisant la somme des variables de la région
 
 secret_reg1<- secret_reg %>%
   group_by(TypeZone,categorie,CodeZone,Periode) %>%
@@ -155,18 +155,3 @@ rm(ecln_secret_10,ecln_secret_11,secret_dep,secret_dep1,secret_dep2,secret_dep3,
    secret_epci,secret_epci1,secret_epci2,secret_epci3,secret_reg,secret_reg1,
    secret_reg2,secret_reg3,tranches_ecln)
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-