diff --git a/DESCRIPTION b/DESCRIPTION
index 27b1066512c203aff57ed45fe0787938ea3f605c..00d9bbd8296ac23cbffd4288be62b9106028742e 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,5 +1,6 @@
 Package: propre.ecln
-Title: Publication conjoncturelle sur la commercialisation de logement neufs
+Title: Publication conjoncturelle sur la commercialisation de logement
+    neufs
 Version: 0.0.0.9000
 Authors@R: c(
     person("Maël", "THEULIERE", , "mael.theuliere@gmail.com", role = c("aut", "cre"),
@@ -7,7 +8,8 @@ Authors@R: c(
     person("Daniel", "Kalioudjoglou", , "daniel.kalioudjoglou@developpement-durable.gouv.fr", role = "aut"),
     person("Denis", "Douillard", , "denis.douillard@developpement-durable.gouv.fr", role = "aut")
   )
-Description: Template Rmarkdown et fonctions pour réaliser la publication trimestrielle sur la commercialisation de logement neufs.
+Description: Template Rmarkdown et fonctions pour réaliser la publication
+    trimestrielle sur la commercialisation de logement neufs.
 License: GPL (>= 3)
 Depends: 
     R (>= 2.10)
diff --git a/R/creer_chiffres_clefs.R b/R/creer_chiffres_clefs.R
index 8eaa88db29636fbd5560437c59493e6e94ffa961..e4774a28e1570f3359b52007a8a3031adc6cb8b6 100644
--- a/R/creer_chiffres_clefs.R
+++ b/R/creer_chiffres_clefs.R
@@ -1,4 +1,4 @@
-#' Converti une date en trimestre
+#' Convertit une date en trimestre
 #'
 #' @param date une date
 #'
@@ -7,10 +7,10 @@
 #' @importFrom lubridate month year
 en_trimestre <- function(date) {
   trim <- dplyr::case_when(
-    lubridate::month(date) <= 3 ~ "1<sup>er</sup>",
-    lubridate::month(date) <= 6 ~ "2<sup>\u00e8me</sup>",
-    lubridate::month(date) <= 9 ~ "3<sup>\u00e8me</sup>",
-    lubridate::month(date) <= 12 ~ "4<sup>\u00e8me</sup>"
+    lubridate::month(date) <= 3 ~ "premier",
+    lubridate::month(date) <= 6 ~ "deuxi\u00E8me",
+    lubridate::month(date) <= 9 ~ "troisi\u00E8me",
+    lubridate::month(date) <= 12 ~ "quatri\u00E8me"
   )
   return(
     paste(trim, "trimestre de", lubridate::year(date))
@@ -27,9 +27,9 @@ en_trimestre <- function(date) {
 en_trimestre_moins_un <- function(date) {
   trim <- dplyr::case_when(
     lubridate::month(date) <= 3 ~ "1<sup>er</sup>",
-    lubridate::month(date) <= 6 ~ "2<sup>\u00e8me</sup>",
-    lubridate::month(date) <= 9 ~ "3<sup>\u00e8me</sup>",
-    lubridate::month(date) <= 12 ~ "4<sup>\u00e8me</sup>"
+    lubridate::month(date) <= 6 ~ "2<sup>e</sup>",
+    lubridate::month(date) <= 9 ~ "3<sup>e</sup>",
+    lubridate::month(date) <= 12 ~ "4<sup>e</sup>"
   )
   return(
     paste(trim, "trimestre de", lubridate::year(date)-1)
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)
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
index 5e0a05c300ebf250e08e4f6b761957e98402431a..4635bba261fbfe45b9f924e1708d5ebd5273f172 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
@@ -2,7 +2,7 @@
 params:
   region: "52"
   annee: "2024"
-  trimestre: "2"
+  trimestre: "3"
   abc: FALSE
 # title: "La commercialisation<br>des logements neufs<br>dans les `r mapfactory::get_nom_reg(params$region)`"
 # subtitle: <h2>`r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee` - Titre informatif qui peut tenir sur plusieurs lignes (par exemple Les ventes sont les plus basses depuis au moins sept ans) </h2>
diff --git a/man/en_trimestre.Rd b/man/en_trimestre.Rd
index ad618ef0148d3fec4644fb191d29c3c03cf8d3ae..a77bcd107a7dcb2378f74e298f082d712bc9a570 100644
--- a/man/en_trimestre.Rd
+++ b/man/en_trimestre.Rd
@@ -2,7 +2,7 @@
 % Please edit documentation in R/creer_chiffres_clefs.R
 \name{en_trimestre}
 \alias{en_trimestre}
-\title{Converti une date en trimestre}
+\title{Convertit une date en trimestre}
 \usage{
 en_trimestre(date)
 }
@@ -13,5 +13,5 @@ en_trimestre(date)
 une chaine de caractère
 }
 \description{
-Converti une date en trimestre
+Convertit une date en trimestre
 }
diff --git a/man/indic_ecln.Rd b/man/indic_ecln.Rd
index 4b77153566abd5a262f85b90c6f26b55b7d903be..1f7e5d3a959d063490ce6b89861629b951e628ee 100644
--- a/man/indic_ecln.Rd
+++ b/man/indic_ecln.Rd
@@ -6,7 +6,7 @@
 \alias{indic_ecln}
 \title{Table contenant les différents indicateurs de la source ecln utiles pour la publication.}
 \format{
-Table de 2535180 lignes et 9 colonnes:
+Table de 2619686 lignes et 9 colonnes:
 \describe{
 \item{TypeZone}{Type de territoire}
 \item{CodeZone}{Code du territoire}
diff --git a/tests/testthat.R b/tests/testthat.R
new file mode 100644
index 0000000000000000000000000000000000000000..c680f803e7c296dbc02417de352fa472d2200118
--- /dev/null
+++ b/tests/testthat.R
@@ -0,0 +1,12 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
+# * https://testthat.r-lib.org/articles/special-files.html
+
+library(testthat)
+library(propre.ecln)
+
+test_check("propre.ecln")