diff --git a/dev/chargement_annuaire.R b/dev/chargement_annuaire.R
new file mode 100644
index 0000000000000000000000000000000000000000..68cef32c34eef7be1b5f322d4e20f2181eb4d0c5
--- /dev/null
+++ b/dev/chargement_annuaire.R
@@ -0,0 +1,13 @@
+library(stringr)
+library(lubridate)
+library(readr)
+path_annuaire <- paste0("annuaire/export_pauline_", str_sub(today(), 1, 7), ".csv")
+if (!file.exists(path_annuaire)) {
+  unlink("annuaire", recursive = TRUE)
+  dir.create("annuaire")
+  download.file(url = "http://annuaire.e2.rie.gouv.fr/index.php?vue=exportcsv&dn=ou=CSD,ou=SCTE,ou=DREAL%20Pays%20Loire,ou=DR,ou=melanie",
+                destfile =  path_annuaire, method = "libcurl")
+}
+annuaire <- readr::read_csv(path_annuaire,col_types = "c")
+
+save.image(file = "path_annuaire.RData")
diff --git a/dev/script_routine.R b/dev/script_routine.R
index dbccb501e2038b4faf61c72046ff9de7e0f54b0d..9ff8df46e1e01b938407ee9cbc06aac12e772164 100644
--- a/dev/script_routine.R
+++ b/dev/script_routine.R
@@ -4,21 +4,12 @@ Sys.setenv("NO_PROXY" = "127.0.0.1,localhost,.i2,.rie.gouv.fr,192.168.,10.,172."
 
 setwd("T:\\datalab\\SCTE_CSD\\dataviz_gitlabr")
 
-library(stringr)
-library(lubridate)
+
 # etape de mise à jour des données sur T-------------
 source(file = "dev/github_extraire.R")
 source(file = "dev/gitlab_classique.R")
 source(file = "dev/gitlab_forge.R")
-
-path_annuaire <- paste0("annuaire/export_pauline_", str_sub(today(), 1, 7), ".csv")
-if (!file.exists(path_annuaire)) {
-  unlink("annuaire", recursive = TRUE)
-  dir.create("annuaire")
-  download.file(url = "http://annuaire.e2.rie.gouv.fr/index.php?vue=exportcsv&dn=ou=CSD,ou=SCTE,ou=DREAL%20Pays%20Loire,ou=DR,ou=melanie",
-                destfile =  path_annuaire, method = "libcurl")
-}
-save(path_annuaire,file = "path_annuaire.RData")
+source(file = "dev/annuaire.R")
 
 
 source(file = "dev/deploiment_sur_dataviz.R", verbose = TRUE)
diff --git a/global.R b/global.R
index dd1e76cc4aa1996277b89bc77e88854d16e27048..daf09d71e2012ce728b3a5967cec7d2f11675231 100644
--- a/global.R
+++ b/global.R
@@ -20,7 +20,6 @@ library(bizdays)
 library(shinyWidgets)
 library(textclean)
 library(stringi)
-library(readr)
 library(fuzzyjoin)
 # chargement des données (résultat du script "dev/script_chargement_rdata.R")
 load("github.RData")
@@ -29,7 +28,7 @@ load("gitlab.RData")
 load("date_MAJ.RData")
 load("path_annuaire.RData")
 
-annuaire <- readr::read_csv(path_annuaire,col_types = "c")
+
 annuaire$Messagerie <- tolower(annuaire$Messagerie)
 annuaire <- annuaire %>% dplyr::rename( mail = Messagerie)
 annuaire <- annuaire %>%  dplyr::filter( stringr::str_detect(Unité,"CSD" ) )