diff --git a/DESCRIPTION b/DESCRIPTION
index 8e78050f3d139d99073a5609bfadbe280237a8a1..0e3f19a6c17b2a43e4a35f123bbeeed3eafd5027 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -14,7 +14,6 @@ Depends:
     R (>= 2.10)
 Imports: 
     attempt,
-    cartography,
     COGiter,
     dplyr,
     drealdown,
@@ -35,8 +34,7 @@ Imports:
     scales,
     sf,
     stringr,
-    tidyr,
-    utils
+    tidyr
 Remotes: 
     gitlab::dreal-datalab/drealdown,
     gitlab::dreal-datalab/mapfactory,
diff --git a/R/creer_carte.R b/R/creer_carte.R
index 6fa69a9448a15c435d0f2c1197ae0d74d776f4b2..4c4115814f067ff93be4234206e1c76c893bd5fb 100644
--- a/R/creer_carte.R
+++ b/R/creer_carte.R
@@ -97,11 +97,12 @@ creer_carte_volume<-function(data=indic_ecln,
                              plot_title_size = 20,
                              subtitle_size = 16) +
     ggplot2::theme(panel.background = ggplot2::element_rect(fill = "light blue"),
-                   plot.background=ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
+                   plot.background = ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
                    legend.position = "bottom",
                    legend.title = ggplot2::element_blank(),
-                   plot.caption.position = "plot"
-    ) +
+                   strip.text = element_text(hjust = 0.5, face = "bold", size=14),
+                   strip.background = element_blank(),
+                   plot.caption.position = "plot") +
     ggplot2::labs(fill=titre_legende,
          caption=bas_de_page,
          title=titre,
@@ -237,8 +238,9 @@ creer_carte_evolution<-function(data=indic_ecln,
           plot.background=ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
           legend.position = "bottom",
           legend.title = ggplot2::element_blank(),
-          plot.caption.position = "plot"
-    ) +
+          strip.text = element_text(hjust = 0.5, face = "bold", size=14),
+          strip.background = element_blank(),
+          plot.caption.position = "plot") +
     ggplot2::labs(fill=titre_legende,
          caption=bas_de_page,
          title=titre)
@@ -379,10 +381,12 @@ creer_carte_volume2<-function(data=indic_ecln,
                              plot_title_size = 20,
                              subtitle_size = 16) +
     ggplot2::theme(panel.background = ggplot2::element_rect(fill = "light blue",color="light blue"),
-                 plot.background=ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
-                 legend.position = "bottom",
-                 legend.title = ggplot2::element_blank(),
-                 plot.caption.position = "plot")+
+                   plot.background = ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
+                   legend.position = "bottom",
+                   legend.title = ggplot2::element_blank(),
+                   strip.text = element_text(hjust = 0.5, face = "bold", size=14),
+                   strip.background = element_blank(),
+                   plot.caption.position = "plot")+
     ggplot2::labs(fill=titre_legende,
          caption = bas_de_page,
          title=titre)
diff --git a/R/creer_chiffres_clefs.R b/R/creer_chiffres_clefs.R
index 6d471508571f78fdedb0307dff87a2e9ea0f0d60..8eaa88db29636fbd5560437c59493e6e94ffa961 100644
--- a/R/creer_chiffres_clefs.R
+++ b/R/creer_chiffres_clefs.R
@@ -7,17 +7,17 @@
 #' @importFrom lubridate month year
 en_trimestre <- function(date) {
   trim <- dplyr::case_when(
-    lubridate::month(date) <= 3 ~ "1er",
-    lubridate::month(date) <= 6 ~ "2\u00e8me",
-    lubridate::month(date) <= 9 ~ "3\u00e8me",
-    lubridate::month(date) <= 12 ~ "4\u00e8me"
+    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>"
   )
   return(
     paste(trim, "trimestre de", lubridate::year(date))
   )
 }
 
-#' Converti une date en trimestre annee moins un
+#' Convertit une date en trimestre de l'année n moins un
 #'
 #' @param date une date
 #'
@@ -26,25 +26,25 @@ en_trimestre <- function(date) {
 #' @importFrom lubridate month year
 en_trimestre_moins_un <- function(date) {
   trim <- dplyr::case_when(
-    lubridate::month(date) <= 3 ~ "1er",
-    lubridate::month(date) <= 6 ~ "2\u00e8me",
-    lubridate::month(date) <= 9 ~ "3\u00e8me",
-    lubridate::month(date) <= 12 ~ "4\u00e8me"
+    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>"
   )
   return(
     paste(trim, "trimestre de", lubridate::year(date)-1)
   )
 }
 
-#' Fonction utilitaire de formatage en pourcentage pour le francais
+#' Fonction utilitaire de formatage en pourcentage pour le français
 #'
-#' @description fonction utilitaire de formatage en pourcentage pour le francais
+#' @description fonction utilitaire de formatage en pourcentage pour le français
 
 #' @param x un nombre à formater en pourcentage
 #' @param dec un entier désignant le nombre de chiffres après la virgule souhaité (1 par défaut)
 #' @param sign TRUE pour avoir le signe +/-
 #'
-#' @return une chaîne de texte, x %, avec transformation de la décimale en virgule et insertion d'un espace insécable
+#' @return une chaîne de texte, x %, avec transformation de la décimale en virgule et insertion d'espaces insécables
 #'
 #' @importFrom attempt stop_if_not
 format_fr_pct <- function(x, dec = 1, sign = TRUE) {
@@ -55,7 +55,7 @@ format_fr_pct <- function(x, dec = 1, sign = TRUE) {
   if (sign == TRUE) {
     res <- paste0(formatC(x, decimal.mark = ",", big.mark = "\u202f", format = "f", digits = dec), "\u00a0%")
     if (x > 0) {
-      res <- paste0("+", res)
+      res <- paste0("+", "\u202f", res)
     }
   }
   return(res)
@@ -121,7 +121,7 @@ creer_chiffres_clefs_ecln <- function(data = indic_ecln,
     valeur = format_fr_nb(df$Valeur, dec = 0),
     evolution = format_fr_pct(df$TauxEvolution12Mois, dec = 1)
   )
-  res <- glue::glue("{drealdown::my_icon('la-building', size=2)} <b>{val$valeur}</b> {texte_log} au cours du {val$periode}<br>
+  res <- glue::glue("{drealdown::my_icon('la-building', size=2)} <b>{val$valeur}</b> {texte_log}<br>au cours du {val$periode}<br>
                     {drealdown::my_icon('la-line-chart', size=2)} <b>{val$evolution}</b> par rapport au {val$periode_moins_un}")
   return(res)
 }
diff --git a/R/creer_graphique_evolution_annuelle.R b/R/creer_graphique_evolution_annuelle.R
index 1bc427ef55e36fd85e1178ce4a8e86fcd6fe5b2e..c12824ec9a0f6c4feb679f105f1e8d704c76774e 100644
--- a/R/creer_graphique_evolution_annuelle.R
+++ b/R/creer_graphique_evolution_annuelle.R
@@ -61,27 +61,21 @@ creer_graphique_evolution_annuelle <- function(data = indic_ecln,
   p <- ggplot2::ggplot(data = df, ggplot2::aes(x = .data$Periode, weight = .data$Valeur, fill = .data$Indicateur)) +
     ggplot2::geom_bar(position = ggplot2::position_dodge()) +
     ggplot2::coord_flip() +
-    ggplot2::geom_label(
+    ggplot2::theme(legend.position = "none",
+                   legend.title = element_blank(),
+                   panel.grid.major = element_line(color = "lightgrey", linetype = "solid"),
+                   panel.grid.minor = element_blank(),
+                   strip.text = element_text(hjust = 0.5, face = "bold", size = 14),
+                   strip.background = element_blank(),
+                   axis.text.x = element_text(size = 9),
+                   axis.line = element_line(size = 0.5, linetype = "solid")) +
+    ggplot2::geom_text(
       data = df,
-      ggplot2::aes(
-        label = format(round(.data$Valeur), big.mark = " "),
-        x = .data$Periode,
-        y = .data$Valeur,
-        group = .data$Indicateur
-      ),
-      position = position_dodge(0.9),
-      color = "white",
-      fill = "grey",
-      alpha = 0.2,
-      fontface = "bold",
-      hjust = 1.2
-    ) +
-    ggplot2::scale_y_continuous(labels = scales::format_format(big.mark = " ")) +
+      ggplot2::aes(label = format(round(.data$Valeur), big.mark = " "), x = .data$Periode, y = .data$Valeur, group = .data$Indicateur),
+      position = position_dodge(0.9), color = "white", size = 4, alpha = 1, fontface = "bold", hjust = 1.2) +
+    ggplot2::scale_y_continuous(expand = c(0, 0), labels = scales::format_format(big.mark = " ")) +
     gouvdown::scale_fill_gouv_discrete(palette = "pal_gouv_qual2") +
-    ggplot2::labs(
-      title = titre, subtitle = "r\u00e9alis\u00e9es sur les 12 derniers mois", x = "Trimestre", y = "",
-      caption = bas_de_page, fill = ""
-    )
+    ggplot2::labs(title = titre, x = "Trimestre", y = "", caption = bas_de_page, fill = "")
   if (type_facet == "classique") {
     p <- p +
       ggplot2::facet_wrap(~ .data$Zone, scales = "free", ncol = ncol_facet)
diff --git a/R/creer_graphique_evolution_trim.R b/R/creer_graphique_evolution_trim.R
index 3b5f0b4773d56338c855bc50ee9f723275f2c3f6..7d1bd5fcf070c613007bfb42cd1576f841c5efdf 100644
--- a/R/creer_graphique_evolution_trim.R
+++ b/R/creer_graphique_evolution_trim.R
@@ -19,7 +19,7 @@
 creer_graphique_evolution_trim <- function(data = indic_ecln,
                                            indicateur = "Ventes - Logements",
                                            zone = "Pays de la Loire",
-                                           titre = "Ventes de logements neufs en Pays de la Loire") {
+                                           titre = "Ventes de logements neufs dans les Pays de la Loire") {
   per <- data %>%
     dplyr::select(.data$Periode) %>%
     dplyr::distinct() %>%
@@ -38,7 +38,7 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
   }
 
   # sous_titre <- glue::glue("Au {label_rang(lubridate::quarter(max_date))} trimestre {lubridate::year(max_date)}")
-  sous_titre <- glue::glue("{rang_trimestre} trimestre {lubridate::year(max_date)}")
+  sous_titre <- glue::glue("{rang_trimestre} trimestre de {lubridate::year(max_date)}")
   label <- data %>%
     dplyr::filter(
       .data$Zone == zone,
@@ -97,28 +97,32 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
       label.margin = ggplot2::margin(2, 5, 2, 5, "mm"),  #marges autour du texte (haut, gauche, bas, droite)
       # label.colour = c("red", "blue"),   #couleur du texte
       label.fontsize = 9,
-      label.colour = gouvdown::gouv_colors("bleu_france"),
+      label.colour = gouvdown::gouv_colors("r1"),
       # alpha = 0.5, #transparence du cercle
       label.fill = NA
       # label.fill = gouvdown::gouv_colors("bleu_france") #couleur de la boite d'annotation
     ) +
-    ggplot2::theme(legend.position = "bottom",
+    ggplot2::guides(color = guide_legend(override.aes = list(fill = NA)),
+                    linetype = guide_legend(override.aes = list(fill = NA))) +
+    ggplot2::theme(title = element_text(colour = "#0f0f0f"),
+                   legend.position = "bottom",
                    legend.title = element_blank(),
-                   axis.line = element_line(colour = "black",
-                                            size = 0.5, linetype = "solid")) +
+                   legend.key = element_rect(color = "white", fill = "white"),
+                   legend.background=element_blank(),
+                   panel.grid.major = element_line(color = "lightgrey", linetype = "solid"),
+                   panel.grid.minor = element_blank(),
+                   axis.title = element_blank(),
+                   axis.text.x = element_text(size=11, hjust=-0.1),
+                   axis.line = element_line(size = 0.5, linetype = "solid")) +
     gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
     gouvdown::scale_fill_gouv_discrete(palette = "pal_gouv_qual2") +
-    ggplot2::labs(
-      x = "",
-      y = "Nombre de ventes",
-      title = titre,
-      subtitle = sous_titre,
-      caption = "Source : ECLN - SDES\nMoyenne annuelle : valeur observ\u00e9e en moyenne sur les 4 derniers trimestres"
-    ) +
+    ggplot2::labs(x = "", y = "", title = titre, subtitle = sous_titre,
+                  caption = "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nMoyenne annuelle : valeur observ\u00e9e en moyenne lors des 4 derniers trimestres") +
     ggplot2::theme(plot.caption = element_text(size = 10))+
-    ggplot2::guides(fill = F) +
-    ggplot2::scale_y_continuous(labels = function(l) format(l, scientific = FALSE, big.mark = " ", decimal.mark = ","), limits = c(0, NA)) +
-    ggplot2::scale_x_date(date_breaks = "1 year", date_labels = "%Y", limits = c(min(per), max(per) + months(12)))
+    ggplot2::scale_y_continuous(expand = c(0, 0), labels = function(l) format(l, scientific = FALSE, big.mark = " ", decimal.mark = ","), limits = c(0, NA)) +
+    ggplot2::scale_x_date(date_breaks = "1 year", date_labels = "%Y", expand = c(0, 0), limits = c(min(per), max(per) + months(12)))
 
   return(gg)
 }
+
+
diff --git a/R/creer_graphique_series_temporelles.R b/R/creer_graphique_series_temporelles.R
index 41a64dbdbe21ee1847c4cac969532bfd882b8b72..0d292e175f372fd45b9d6992b8ae651c8f2aa70d 100644
--- a/R/creer_graphique_series_temporelles.R
+++ b/R/creer_graphique_series_temporelles.R
@@ -35,8 +35,16 @@ creer_graphique_series_temporelles <- function(data = indic_ecln,
     ggplot2::ggplot() +
     ggplot2::aes(x = .data$Periode, y = .data$Valeur, color = .data$Indicateur, fill = .data$Indicateur, group = .data$Indicateur) +
     ggplot2::geom_line(size = 1.2) +
-    ggplot2::scale_y_continuous(labels = scales::format_format(big.mark = " "), limits = c(0, NA)) +
-    ggplot2::scale_x_date(date_labels = "%y", date_breaks = "1 year") +
+    ggplot2::theme(legend.position = "none",
+                   legend.title = element_blank(),
+                   panel.grid.major = element_line(color = "lightgrey", linetype = "solid"),
+                   panel.grid.minor = element_blank(),
+                   strip.text = element_text(hjust = 0.5, face = "bold", size=14),
+                   strip.background = element_blank(),
+                   axis.text.x = element_text(size=11, hjust=-0.1),
+                   axis.line = element_line(colour = "black", size = 0.5, linetype = "solid")) +
+    ggplot2::scale_y_continuous(expand = c(0, 0), labels = scales::format_format(big.mark = " "), limits = c(0, NA)) +
+    ggplot2::scale_x_date(date_labels = "%y", expand = c(0, 0), date_breaks = "1 year") +
     gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
     ggplot2::labs(
       title = titre,
diff --git a/R/creer_graphique_series_temporelles_prix.R b/R/creer_graphique_series_temporelles_prix.R
index 15d6e4657290c9e5c1044ef4718501502cd25064..b9c036ec2868674556ea3674ec9e418bce0bdf3d 100644
--- a/R/creer_graphique_series_temporelles_prix.R
+++ b/R/creer_graphique_series_temporelles_prix.R
@@ -64,9 +64,14 @@ creer_graphique_series_temporelles_prix <- function(data = indic_ecln,
     #     .data$Periode == max(.data$Periode)
     #   )) +
     ggplot2::theme(legend.position = "none",
-                   axis.line = element_line(colour = "black",
-                                            size = 0.5, linetype = "solid")) +
-    ggplot2::scale_x_date(date_labels = "%y", date_breaks = "1 year") +
+                   legend.title = element_blank(),
+                   panel.grid.major = element_line(color = "lightgrey", linetype = "solid"),
+                   panel.grid.minor = element_blank(),
+                   strip.text = element_text(hjust = 0.5, face = "bold", size=14),
+                   strip.background = element_blank(),
+                   axis.text.x = element_text(size=11, hjust=-0.1),
+                   axis.line = element_line(size = 0.5, linetype = "solid")) +
+    ggplot2::scale_x_date(date_labels = "%y", expand = c(0, 0), date_breaks = "1 year") +
     ggplot2::scale_y_continuous(labels = scales::dollar_format(big.mark = " ", decimal_mark = ",", prefix = "", suffix = " \u20ac")) +
     gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
     ggplot2::labs(
@@ -90,3 +95,4 @@ creer_graphique_series_temporelles_prix <- function(data = indic_ecln,
   }
   return(p)
 }
+
diff --git a/R/creer_tableau_synthese_annuelle.R b/R/creer_tableau_synthese_annuelle.R
index 010cebbf91ed56943714f49a948a6b7e85faa053..ccda7d71038aeb55bd95ff122c77aa4ede928abd 100644
--- a/R/creer_tableau_synthese_annuelle.R
+++ b/R/creer_tableau_synthese_annuelle.R
@@ -60,19 +60,19 @@ creer_tableau_synthese_annuel <- function(data = indic_ecln,
     dplyr::select(2, 6, 10, 4, 8, 3, 7, 5, 9) %>%
     knitr::kable("html",
       col.names = c(
-        "Zone", "Sur les 12 derniers mois", "\u00C9volution sur un an (en %)",
-        "Au cours des 12 derniers mois", "\u00C9volution sur un an (en %)",
+        "Territoire", "Au cours des douze derniers mois", "\u00C9volution sur un an (en %)",
+        "Au cours des douze derniers mois", "\u00C9volution sur un an (en %)",
         "En fin de p\u00e9riode", "\u00C9volution sur un an (en %)",
-        "Prix moyen sur les 12 derniers mois (en \u20ac)", "\u00C9volution sur un an (en %)"
+        "Au cours des douze derniers mois", "\u00C9volution sur un an (en %)"
       ),
       digits = c(0, 0, 1, 0, 1, 0, 1, 0, 1),
       format.args = list(big.mark = " ", decimal.mark = ",")
     ) %>%
     kableExtra::kable_styling(font_size = 12) %>%
     kableExtra::row_spec(1:2, bold = T, background = "#f0f0f5") %>%
-    kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m\u00B2" = 2)) %>%
+    kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix moyen du m\u00B2 (en \u20ac)" = 2)) %>%
     kableExtra::add_indent(c(3:nombre_zone)) %>%
-    kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es (secret statistique)")
+    kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es en raison du secret statistique (voir la section '\u00C0 propos' \u00E0 la fin du document)")
   if ("ABC" %in% type_zone) {
     res <- res %>%
       kableExtra::row_spec(nombre_fr_dep_reg:nombre_zone, bold = T, background = "#bebece")
diff --git a/R/creer_tableau_synthese_trimestrielle.R b/R/creer_tableau_synthese_trimestrielle.R
index 7451832a1e339fa5b344e884a4b8bfd7ee64f04e..3f9a083aa2f8e1083a185e64b9d68c77c70cb0d2 100644
--- a/R/creer_tableau_synthese_trimestrielle.R
+++ b/R/creer_tableau_synthese_trimestrielle.R
@@ -62,17 +62,17 @@ creer_tableau_synthese_trimestrielle <- function(data = indic_ecln,
     dplyr::select(2, 6, 10, 4, 8, 3, 7, 5, 9)%>%
     knitr::kable("html",
       col.names = c(
-        "Zone", "Sur le dernier trimestre", "\u00C9volution sur un an (en %)",
+        "Territoire", "Au cours du dernier trimestre", "\u00C9volution sur un an (en %)",
         "Au cours du dernier trimestre", "\u00C9volution sur un an (en %)",
-        "En fin de p\u00e9riode", "\u00C9volution sur un an (en %)",
-        "Prix moyen sur le dernier trimestre (en \u20ac)", "\u00C9volution sur un an (en %)"
+        "\u00C0 la fin du dernier trimestre", "\u00C9volution sur un an (en %)",
+        "Au cours du dernier trimestre", "\u00C9volution sur un an (en %)"
       ),
       digits = c(0, 0, 1, 0, 1, 0, 1, 0, 1),
       format.args = list(big.mark = " ", decimal.mark = ",")
     ) %>%
     kableExtra::kable_styling(font_size = 12) %>%
     kableExtra::row_spec(1:2, bold = T, background = "#f0f0f5") %>%
-    kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m\u00B2" = 2)) %>%
-    kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es (secret statistique)")
+    kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix moyen du m\u00B2 (en \u20ac)" = 2)) %>%
+    kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es en raison du secret statistique (voir la section '\u00C0 propos' \u00E0 la fin du document)")
 
 }
diff --git a/devstuff.R b/devstuff.R
index b5371601358b6e29b5d59fe3d40ffa075a568df6..7ce034c3b6436aa59fdfe5757ef554b72eaeedd8 100644
--- a/devstuff.R
+++ b/devstuff.R
@@ -25,4 +25,4 @@ usethis::use_package('tidyr')
 usethis::use_r("tableau_synthese_trimestrielle")
 
 attachment::att_amend_desc()
-usethis::use_r("globals.R")
+yusethis::use_r("globals.R")
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
index 22e5472ca61434afe74071d22766255411e0877c..7f789b8647b6aa4b6e3a1e99fc84f4e6eae7598e 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
@@ -2,11 +2,17 @@
 <hr />
 <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
 
-<p style="font-size:150%;text-align:center;color:grey";>La commercialisation des logements neufs en Pays de la Loire</p>
+<p style="font-size:150%;text-align:center;color:grey";>La commercialisation des logements neufs dans les Pays de la Loire</p>
 
 <div class="col-md-6">
 
-<p style="text-align: left;">Développement : Daniel Kalioudjoglou - Maël Theuliere</p>
+<p style="text-align: center;">Développement :
+<br>Maël THEULIÈRE,
+<br>Daniel KALIOUDJOGLOU,
+<br>& Denis DOUILLARD
+<br>&emsp;
+<br>--------------------------
+<br>&emsp;</p>
 <p style="text-align: center;">Une production du</p>
 <center><img src="www/Logo_datalab.svg", width="200"></center>
 
@@ -14,25 +20,21 @@
 
 <div class="col-md-6">
 
-<p style="text-align: left;">Direction régionale de l’environnement, de l’aménagement et du logement</p>
+<p style="text-align: left;">Direction régionale de l’environnement,<br>de l’aménagement et du logement</p>
 
-<p style="text-align: left;">Service connaissance des territoires et évaluation </p>
+<p style="text-align: left;">Service connaissance des territoires<br>et évaluation (SCTE) </p>
 
-<p style="text-align: left;">Centre de service de la donnée</p>
+<p style="text-align: left;">Centre de service de la donnée (CSD)</p>
 
-<p style="text-align: left;">5 rue Françoise Giroud - CS16326</p>
+<p style="text-align: left;">5 rue Françoise Giroud - CS16326<br>44263 NANTES Cedex 2<br>Tél. 02 72 74 73 00</p>
 
-<p style="text-align: left;">44263 Nantes Cedex 2</p>
+<p style="text-align: left;">mail : statistiques.dreal-pdl<br>@developpement-durable.gouv.fr</p>
 
-<p style="text-align: left;">Tél. 02 72 74 73 00</p>
-
-<p style="text-align: left;">mail: statistiques.dreal-pdl@developpement-durable.gouv.fr</p>
-
-<p style="text-align: left;">Directrice de la publication : Anne Beauval</p>
+<p style="text-align: left;">Directrice de la publication : Anne BEAUVAL</p>
 
 <p style="text-align: left;">ISSN : 2109-0025</p>
 
-<p style="text-align: left;">©DREAL 2024</p>
+<p style="text-align: left;">© DREAL 2024</p>
 </div>
 
 <hr />
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
index 01b262b5d6475589118861f0f5c8afc7d5325a2c..f28ea5335071764b70063627328b08777b0ccc89 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
@@ -1,16 +1,17 @@
 ---
 params:
   region: "52"
-  annee: "2023"
-  trimestre: "3"
+  annee: "2024"
+  trimestre: "1"
   abc: FALSE
-title: "La commercialisation des logements neufs en `r mapfactory::get_nom_reg(params$region)`"
-subtitle: <h1>`r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`</h1>
+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 Le recul des ventes de maisons est quatre fois plus important que celui des appartements) </h2>
 author: "[**Denis DOUILLARD - DREAL des Pays de la Loire**](mailto:statistiques.dreal-pdl@developpement-durable.gouv.fr)"
 date: "Dernière mise à jour : `r format(Sys.Date(),'%d %B %Y')`"
 output: 
   gouvdown::html_gouv:
     toc: TRUE
+    toc_float: TRUE
     logo: "prefecture_r52"
     include:
       after_body: footer.html
@@ -19,11 +20,32 @@ editor_options:
   markdown: 
     wrap: 72
 ---
+<style>
+body {text-align: justify; font-size: 140%;}
+caption {color: "black"; font-size: 130%; font-weight: bold; text-align: center;}
+.table {margin:0px 0px 0px 0px; border:0px solid transparent; box-shadow:0px 0px 0px transparent;}
+.table thead>tr {height: 10px; border-top: 0px solid white;}
+.table thead>tr>th {height: 10px; border: 0px solid #ccc;}
+.table tbody>tr>td {height: 10px; border: 0px solid #ccc;}
+tfoot {font-size: 90%;}
+ul {list-style-position: outside; text-indent: 0em; padding-left: 2rem;}
+ul li {list-style-position: outside; text-indent: 0em; padding-left: 0;}
+li::before{padding: 0; margin: 0;}
+h1 {color: "black"; text-align: left; padding-left: 0px; font-size: 200%}
+h2 {color: "black"; text-align: left; padding-left: 0px; font-size: 180%}
+h3 {color: "black"; text-align: left; padding-left: 0px; font-size: 130%}
+div.tocify {width: 80%; max-width: 280px; max-height: 100%; border: #323787;}
+.tocify-header {text-indent: 0px; text-align: left; font-size: 95%; letter-spacing: -0.6px;}
+.tocify-subheader {text-indent: 0px; text-align: left; font-size: 100%}
+.tocify .tocify-item a, .tocify .list-group-item {text-indent: 0px; padding: 0px;}
+.list-group-item.active, .list-group-item.active:focus, .list-group-item.active:hover {
+    background-color: "black"; border-color: "black"}
+.tocify ul, .tocify li {line-height: 125%;}
+</style>
 
 ```{r setup, include=FALSE}
 knitr::opts_chunk$set(
   echo = FALSE, message = FALSE, warning = FALSE, error = FALSE,
-
   width = 100
 )
 library(propre.ecln)
@@ -50,16 +72,16 @@ mygrid <- data.frame(
 if (!params$abc) {
   mygrid <- mygrid %>% dplyr::filter(!(code %in% c("Zone C", "Zone B1", "Zone B2")))
 }
-caption <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente \n sur les 12 derniers mois\nEncours en fin de période"
-caption_appartements <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente d'appartements \n sur les 12 derniers mois\nEncours en fin de période"
-caption_maisons <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente de maisons \n sur les 12 derniers mois\nEncours en fin de période \n Les résultats de la Mayenne et de la Sarthe sont soumis au secret statistique"
-caption_carte_appartements <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente d'appartements au cours des 12 derniers mois\nEncours en fin de période"
-caption_carte_appartements2 <- "Source : ECLN - SDES\n\u00C9volution des ventes et des mises en vente d'appartements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
-caption_carte_maisons <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente de maisons au cours des 12 derniers mois\nEncours en fin de période"
-caption_carte_maisons2 <- "Source : ECLN - SDES\n\u00C9volution des ventes et des mises en vente de maisons par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
-caption_carte_logements <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente de logements au cours des 12 derniers mois\nEncours en fin de période"
-caption_carte_logements2 <- "Source : ECLN - SDES\n\u00C9volution des ventes et des mises en vente de logements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des logements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
-captionprix <- "Source : ECLN - SDES\nPrix moyen observé sur les 12 derniers mois\nDonn\u00e9es manquantes en raison du secret statistique : voir 'A propos'"
+caption <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente au cours des douze derniers mois\nEncours en fin de trimestre"
+caption_appartements <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente d'appartements au cours des douze derniers mois\nEncours en fin de trimestre"
+caption_maisons <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente de maisons au cours des douze derniers mois\nEncours en fin de trimestre\nLes résultats de la Mayenne et de la Sarthe sont soumis au secret statistique."
+caption_carte_appartements <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente d'appartements au cours des douze derniers mois\nEncours en fin de trimestre"
+caption_carte_appartements2 <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\n\u00C9volution des ventes et des mises en vente d'appartements par rapport aux douze mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
+caption_carte_maisons <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente de maisons au cours des douze derniers mois\nEncours en fin de trimestre"
+caption_carte_maisons2 <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\n\u00C9volution des ventes et des mises en vente de maisons par rapport aux douze mois pr\u00e9cedents\n\u00C9volution de l'encours des maisons par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
+caption_carte_logements <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente de logements au cours des douze derniers mois\nEncours en fin de trimestre"
+caption_carte_logements2 <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\n\u00C9volution des ventes et des mises en vente de logements par rapport aux douze mois pr\u00e9cedents\n\u00C9volution de l'encours des logements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
+captionprix <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nPrix moyen observé au cours des douze derniers mois\nDonn\u00e9es manquantes en raison du secret statistique : voir la section '\u00C0 propos' \u00E0 la fin du document"
 
 typezone <- c("France", "R\u00e9gions", "D\u00e9partements")
 
@@ -72,12 +94,14 @@ indic_ecln <- data_prep(
   abc = params$abc
 )
 
-
 ```
+&emsp;
 
-## 1 - Les logements (maisons et appartements)
+# 1 - Les logements (maisons et appartements)
 
-### 1.1 - Les ventes
+&emsp;
+
+## 1.1 - Les ventes
 
 <div class = "row">
 
@@ -87,7 +111,7 @@ indic_ecln <- data_prep(
 creer_graphique_evolution_trim(
   indicateur = "Ventes - Logements",
   zone = {nom_region},
-  titre = paste("Ventes de logements neufs \nen",nom_region)
+  titre = paste("Ventes de logements neufs\ndans les",nom_region)
 )
 ```
 :::
@@ -99,16 +123,17 @@ A COMPLETER
 </div>
 </div>
 
-### 1.2 - Les chiffres clefs
+## 1.2 - Les chiffres clefs
 
-#### Chiffres trimestriels
+### `r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`
 
 ```{r logementstableautrim}
 opts <- options(knitr.kable.NA = "NC")
 creer_tableau_synthese_trimestrielle(type_logement = "logement")
 ```
+&emsp;
 
-#### Chiffres cumulés sur les 4 derniers trimestres
+### Cumul des quatre derniers trimestres
 
 ```{r logementstableaucumul}
 opts <- options(knitr.kable.NA = "NC")
@@ -117,49 +142,48 @@ creer_tableau_synthese_annuel(
   type_zone = typezone
 )
 ```
+&emsp;
 
+## 1.3 - Les principales évolutions {.tabset}
 
-
-### 1.3 - Les principales évolutions {.tabset}
-
-#### Les comparaisons sur un an
+### Les cumuls annuels à un an d'intervalle
 
 ```{r logementsevolution0 ,fig.height = 12,fig.width = 12}
 creer_graphique_evolution_annuelle(
   type_logement = "logement",
   type_zone = typezone,
-  titre = "\u00C9volution des ventes et des mises en vente de logements neufs",
+  titre = "Ventes, mises en vente et encours de logements neufs sur douze mois glissants",
   bas_de_page = caption,
   type_facet = "classique"
 )
 ```
 
-#### Les séries temporelles
+### Les séries temporelles
 
 ```{r logementsevolution,fig.height = 12,fig.width = 12}
 options(scipen = 999)
 creer_graphique_series_temporelles(
   type_logement = "Logements",
   type_zone = typezone,
-  titre = "\u00C9volution des ventes et des mises en vente de logements neufs sur 12 mois glissants",
+  titre = "Ventes, mises en vente et encours de logements neufs sur douze mois glissants",
   bas_de_page = caption,
   type_facet = "classique"
 )
 ```
 
-### 1.4 - L'évolution des prix
+## 1.4 - L'évolution des prix
 
 ```{r logementsprix,fig.height = 12,fig.width = 12}
 creer_graphique_series_temporelles_prix(
   type_logement = "Logements",
   type_zone = typezone,
-  titre = "\u00C9volution du prix au m\u00B2 moyen des logements neufs en euros sur 12 mois glissants",
+  titre = "Prix moyen au m\u00B2 des logements neufs sur douze mois glissants",
   bas_de_page = captionprix,
   type_facet = "classique"
 )
 ```
 
-### 1.5 - La commercialisation par EPCI
+## 1.5 - La commercialisation par EPCI
 
 ```{r ensemble_cartes_volume2_epci,fig.height = 6,fig.width = 12}
 creer_carte_volume2(data=indic_ecln,
@@ -171,22 +195,22 @@ creer_carte_volume2(data=indic_ecln,
                                titre_legende="",
                                bas_de_page=caption_carte_logements)
 ```
-
 ```{r logementscartes_evol,fig.height = 6,fig.width = 12}
 creer_carte_evolution(data=indic_ecln,
                       code_region = params$reg,
                       indicateurs = c("Encours","Mises en vente","Ventes"),
                       type_logement="Logements",
                       type_indicateur="Cumul annuel",
-                      titre="Les \u00E9volutions",
+                      titre="Les \u00E9volutions (glissement annuel)",
                       titre_legende="",
                       bas_de_page=caption_carte_logements2)
 ```
 
+# 2 - Les appartements
 
-## 2 - Les appartements
+&emsp;
 
-### 2.1 - Les ventes
+## 2.1 - Les ventes
 
 <div class = "row">
 
@@ -196,7 +220,7 @@ creer_carte_evolution(data=indic_ecln,
 creer_graphique_evolution_trim(
   indicateur = "Ventes - Appartements",
   zone = {nom_region},
-  titre = paste("Ventes d'appartements neufs \nen ",nom_region)
+  titre = paste("Ventes d'appartements neufs\ndans les",nom_region)
 )
 ```
 :::
@@ -216,16 +240,17 @@ A COMPLETER
 </div>
 
 
-### 2.2 - Les chiffres clefs
+## 2.2 - Les chiffres clefs
 
-#### Chiffres trimestriels
+### `r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`
 
 ```{r collectiftableautrim}
 opts <- options(knitr.kable.NA = "NC")
 creer_tableau_synthese_trimestrielle(type_logement = "collectif")
 ```
+&emsp;
 
-#### Chiffres cumulés sur les 4 derniers trimestres
+### Cumul des quatre derniers trimestres
 
 ```{r collectiftableaucumul}
 opts <- options(knitr.kable.NA = "NC")
@@ -234,49 +259,48 @@ creer_tableau_synthese_annuel(
   type_zone = typezone
 )
 ```
+&emsp;
 
+## 2.3 - Les principales évolutions {.tabset}
 
-
-### 2.3 - Les principales évolutions {.tabset}
-
-#### Les comparaisons sur un an
+### Les cumuls annuels à un an d'intervalle
 
 ```{r collectifevolution0,fig.height = 12,fig.width = 12}
 options(scipen = 999)
 creer_graphique_evolution_annuelle(
   type_logement = "collectif",
   type_zone = typezone,
-  titre = "\u00C9volution des ventes et des mises en vente d'appartements neufs",
+  titre = "Ventes, mises en vente et encours d'appartements neufs sur douze mois glissants",
   bas_de_page = caption,
   type_facet = "classique"
 )
 ```
 
-#### Les séries temporelles
+### Les séries temporelles
 
 ```{r collectifevolution,fig.height = 12,fig.width = 12}
 creer_graphique_series_temporelles(
   type_logement = "Appartements",
   type_zone = typezone,
-  titre = "\u00C9volution des ventes et des mises en vente d'appartements neufs sur 12 mois glissants",
+  titre = "Ventes, mises en vente et encours d'appartements neufs sur douze mois glissants",
   bas_de_page = caption,
   type_facet = "classique"
 )
 ```
 
-### 2.4 - L'évolution des prix
+## 2.4 - L'évolution des prix
 
 ```{r collectifprix,fig.height = 12,fig.width = 12}
 creer_graphique_series_temporelles_prix(
   type_logement = "Appartements",
   type_zone = typezone,
-  titre = "\u00C9volution du prix au m\u00B2 moyen des appartements neufs en euros sur 12 mois glissants",
+  titre = "Prix moyen au m\u00B2 des appartements neufs sur douze mois glissants",
   bas_de_page = captionprix,
   type_facet = "classique"
 )
 ```
 
-### 2.5 - La commercialisation par EPCI
+## 2.5 - La commercialisation par EPCI
 
 ```{r collectifcartes_volume2,fig.height = 6,fig.width = 12}
 creer_carte_volume2(data=indic_ecln,
@@ -288,25 +312,22 @@ creer_carte_volume2(data=indic_ecln,
                    titre_legende="",
                    bas_de_page=caption_carte_appartements)
 ```
-
-
 ```{r collectifcartes_evol,fig.height = 6,fig.width = 12}
 creer_carte_evolution(data=indic_ecln,
                       code_region = params$reg,
                       indicateurs = c("Encours","Mises en vente","Ventes"),
                       type_logement="Appartements",
                       type_indicateur="Cumul annuel",
-                      titre="Les \u00E9volutions",
+                      titre="Les \u00E9volutions (glissement annuel)",
                       titre_legende="",
                       bas_de_page=caption_carte_appartements2)
 ```
 
+# 3 - Les maisons
 
+&emsp;
 
-
-## 3 - Les maisons
-
-### 3.1 - Les ventes
+## 3.1 - Les ventes
 
 <div class = "row">
 
@@ -315,7 +336,7 @@ creer_carte_evolution(data=indic_ecln,
 creer_graphique_evolution_trim(
   indicateur = "Ventes - Maisons",
   zone = {nom_region},
-  titre = paste("Ventes de maisons neuves \nen ", nom_region)
+  titre = paste("Ventes de maisons neuves\ndans les", nom_region)
 )
 ```
 :::
@@ -335,16 +356,17 @@ A COMPLETER
 </div>
 
 
-### 3.2 - Les chiffres clefs
+## 3.2 - Les chiffres clefs
 
-#### Chiffres trimestriels
+### `r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`
 
 ```{r individueltableautrim}
 opts <- options(knitr.kable.NA = "NC")
 creer_tableau_synthese_trimestrielle(type_logement = "individuel")
 ```
+&emsp;
 
-#### Chiffres cumulés sur les 4 derniers trimestres
+### Cumul des quatre derniers trimestres
 
 ```{r individueltableaucumul}
 opts <- options(knitr.kable.NA = "NC")
@@ -353,49 +375,48 @@ creer_tableau_synthese_annuel(
   type_zone = typezone
 )
 ```
+&emsp;
 
+## 3.3 - Les principales évolutions {.tabset}
 
-
-### 3.3 - Les principales évolutions {.tabset}
-
-#### Les comparaisons sur un an
+### Les cumuls annuels à un an d'intervalle
 
 ```{r individuelevolution0,fig.height = 12,fig.width = 12}
 creer_graphique_evolution_annuelle(
   type_logement = "individuel",
   type_zone = typezone,
-  titre = "\u00C9volution des ventes et des mises en vente de maisons neuves",
+  titre = "Ventes, mises en vente et encours de maisons neuves sur douze mois glissants",
   bas_de_page = caption,
   type_facet = "classique"
 )
 ```
 
-#### Les séries temporelles
+### Les séries temporelles
 
 ```{r individuelevolution,fig.height = 12,fig.width = 12}
 options(scipen = 999)
 creer_graphique_series_temporelles(
   type_logement = "Maisons",
   type_zone = typezone,
-  titre = "\u00C9volution des ventes et des mises en vente de maisons neuves sur 12 mois glissants",
+  titre = "Ventes, mises en vente et encours de maisons neuves sur douze mois glissants",
   bas_de_page = caption,
   type_facet = "classique"
 )
 ```
 
-### 3.4 - L'évolution des prix
+## 3.4 - L'évolution des prix
 
 ```{r individuelprix,fig.height = 12,fig.width = 12}
 creer_graphique_series_temporelles_prix(
   type_logement = "Maisons",
   type_zone = typezone,
-  titre = "\u00C9volution du prix au m\u00B2 moyen des maisons neuves en euros sur 12 mois glissants",
+  titre = "Prix moyen au m\u00B2 des maisons neuves sur douze mois glissants",
   bas_de_page = captionprix,
   type_facet = "classique"
 )
 ```
 
-### 3.5 - La commercialisation par EPCI
+## 3.5 - La commercialisation par EPCI
 
 ```{r individuelcartes_volume2,,fig.height = 6,fig.width = 12}
 creer_carte_volume2(data=indic_ecln,
@@ -407,56 +428,65 @@ creer_carte_volume2(data=indic_ecln,
                    titre_legende="",
                    bas_de_page=caption_carte_maisons)
 ```
-
-
 ```{r individuelcartes_evol,,fig.height = 6,fig.width = 12}
 creer_carte_evolution(data=indic_ecln,
                       code_region = params$reg,
                       indicateurs = c("Encours","Mises en vente","Ventes"),
                       type_logement="Maisons",
                       type_indicateur="Cumul annuel",
-                      titre="Les \u00E9volutions",
+                      titre="Les \u00E9volutions (glissement annuel)",
                       titre_legende="",
                       bas_de_page=caption_carte_maisons2)
 ```
 
-## 4 - À propos
+# 4 - À propos
 
-### La source ECLN
+## La source ECLN
 
-L’enquête sur la commercialisation des logements neufs (ECLN) est réalisée chaque trimestre à partir  des  informations  sur  les  permis  de  construire  issues  de  la  base  [Sitadel 2](https://www.statistiques.developpement-durable.gouv.fr/la-construction-neuve).  Ces  informations sont complétées  par  des  projets  immobiliers  connus  au travers  de  la  presse,  d’internet  ou  d’autres éléments  publicitaires.  Les  promoteurs  immobiliers  sont  interrogés  sur  les  caractéristiques  et  la commercialisation éventuelle de leur projet.
+L’enquête sur la commercialisation des logements neufs (ECLN) est réalisée chaque trimestre à partir des informations figurant sur les permis de construire[^1] issues de la base [Sitadel](https://www.statistiques.developpement-durable.gouv.fr/la-construction-neuve). Les promoteurs immobiliers sont interrogés sur les caractéristiques et la commercialisation éventuelle de leur projet de construction.
 
-Consultez la [méthodologie de l'enquête](https://www.statistiques.developpement-durable.gouv.fr/enquete-sur-la-commercialisation-des-logements-neufs-ecln)
+La base de sondage de l'ECLN est constituée de l'ensemble des permis de construire de plus de quatre logements (appartements et/ou maisons groupées). Environ un tiers de ces programmes d'au moins cinq logements sont exclues du champ de l'enquête. Le hors champ de l'ECLN comprend les projets qui ne sont pas destinés intégralement à la vente ou qui ne s'apparente pas à de la commercialisation immobilière classique. Il recouvre plusieurs cas de figure :
 
-<hr>
-### Le secret statistique
-
-L’enquête sur la commercialisation des logements neufs est obligatoire et bénéficie du label d’intérêt général et obligatoire. Toutes les parutions sont soumises au respect du secret statistique : les chiffres ne respectant pas le secret sont non diffusables.
-
-Cette source contient des variables dites sensibles, c'est à dire soumises au secret statistique (les ventes ou réservations, les encours et le prix de vente) et des variables publiques (les mises en vente).
+* les logements loués par le promoteur,
 
-Le tableau ci-dessous indique pour les variables sensibles les critères de diffusion appliqués.
+* la location accession (PSLA, ...),
 
-![](www/tableau_secret2.png)
-<hr>
+* la dation,
 
-### Les valeurs non significatives
+* la multipropriété (copromotion, achat à temps partagé, ...),
 
-Les taux d'évolution sont dits "non significatifs" quand la valeur de comparaison un an plus tôt est nulle.
+* les autres démembrements (usufruit, ...),
 
+* les baux, tels que le BRS (bail réel solidaire) ou le BRI (bail réel immobilier), destinés à des ménages à bas revenus,
 
+* la vente d'un terrain à bâtir avec transfert de permis,
 
+* les ventes en plateau (construction dépourvues de cloisons et de sanitaires).
 
+Consultez la [méthodologie de l'enquête](https://www.statistiques.developpement-durable.gouv.fr/enquete-sur-la-commercialisation-des-logements-neufs-ecln)
 
+&emsp;
 
+## Le secret statistique
 
+L’ECLN est obligatoire et bénéficie du label d’intérêt général et obligatoire. Toutes les parutions sont soumises au respect du secret statistique : les chiffres ne respectant pas le secret sont non diffusables.
 
+Cette source contient des variables dites sensibles, c'est à dire soumises au secret statistique (les ventes ou réservations, les encours et le prix de vente) et des variables publiques (les mises en vente).
 
+Le tableau ci-dessous indique pour les variables sensibles les critères de diffusion appliqués.
 
+![](www/tableau_secret2.png)
 
+&emsp;
 
+## Autres données non communiquées
 
+Un autre cas de données non communiquées est celui des valeurs dites non significatives. Il s'observe à plusieurs endroits dans la publication :
 
+* dans les tableaux de chiffres clefs où certaines cellules des colonnes <i>Évolution sur un an (en %)</i> affichent le signe NC,
 
+* dans les cartes représentant ces mêmes évolutions annuelles où des EPCI apparaissent en grisé.
 
+Les taux d'évolution sont ainsi considérés comme non significatifs quand la valeur de comparaison (observé un an plus tôt) est nulle, rendant impossible le calcul du pourcentage de variation.
 
+[^1]: <span style="font-size:85%;"> Ces informations sont complétées par des projets immobiliers connus au travers de la presse, d’internet ou  d’autres éléments publicitaires.</span>
diff --git a/man/creer_graphique_evolution_trim.Rd b/man/creer_graphique_evolution_trim.Rd
index a8dbb1caa43404e8004f7391782440ef67dc1f03..627a7c7415198abea8e7310632817f6c85713a1c 100644
--- a/man/creer_graphique_evolution_trim.Rd
+++ b/man/creer_graphique_evolution_trim.Rd
@@ -8,7 +8,7 @@ creer_graphique_evolution_trim(
   data = indic_ecln,
   indicateur = "Ventes - Logements",
   zone = "Pays de la Loire",
-  titre = "Ventes de logements neufs en Pays de la Loire"
+  titre = "Ventes de logements neufs dans les Pays de la Loire"
 )
 }
 \arguments{
diff --git a/man/en_trimestre_moins_un.Rd b/man/en_trimestre_moins_un.Rd
index 4ba89d6fc464490a6ffc642b0184590a0db63655..ac94728239763f28f864ba8287b4e87d27528d5a 100644
--- a/man/en_trimestre_moins_un.Rd
+++ b/man/en_trimestre_moins_un.Rd
@@ -2,7 +2,7 @@
 % Please edit documentation in R/creer_chiffres_clefs.R
 \name{en_trimestre_moins_un}
 \alias{en_trimestre_moins_un}
-\title{Converti une date en trimestre annee moins un}
+\title{Convertit une date en trimestre de l'année n moins un}
 \usage{
 en_trimestre_moins_un(date)
 }
@@ -13,5 +13,5 @@ en_trimestre_moins_un(date)
 une chaine de caractère
 }
 \description{
-Converti une date en trimestre annee moins un
+Convertit une date en trimestre de l'année n moins un
 }
diff --git a/man/format_fr_pct.Rd b/man/format_fr_pct.Rd
index aaffb4be956cf8cbe34d4377a2cb442bd4ce728d..a3f3e1c8aa68d9954422ae7a13da5f0e87db060a 100644
--- a/man/format_fr_pct.Rd
+++ b/man/format_fr_pct.Rd
@@ -2,7 +2,7 @@
 % Please edit documentation in R/creer_chiffres_clefs.R
 \name{format_fr_pct}
 \alias{format_fr_pct}
-\title{Fonction utilitaire de formatage en pourcentage pour le francais}
+\title{Fonction utilitaire de formatage en pourcentage pour le français}
 \usage{
 format_fr_pct(x, dec = 1, sign = TRUE)
 }
@@ -14,8 +14,8 @@ format_fr_pct(x, dec = 1, sign = TRUE)
 \item{sign}{TRUE pour avoir le signe +/-}
 }
 \value{
-une chaîne de texte, x \%, avec transformation de la décimale en virgule et insertion d'un espace insécable
+une chaîne de texte, x \%, avec transformation de la décimale en virgule et insertion d'espaces insécables
 }
 \description{
-fonction utilitaire de formatage en pourcentage pour le francais
+fonction utilitaire de formatage en pourcentage pour le français
 }