diff --git a/global.R b/global.R
index daf09d71e2012ce728b3a5967cec7d2f11675231..b3a743f3b2b9cf69f1738ff10c4b2c70ba5ab5b0 100644
--- a/global.R
+++ b/global.R
@@ -31,7 +31,7 @@ load("path_annuaire.RData")
 
 annuaire$Messagerie <- tolower(annuaire$Messagerie)
 annuaire <- annuaire %>% dplyr::rename( mail = Messagerie)
-annuaire <- annuaire %>%  dplyr::filter( stringr::str_detect(Unité,"CSD" ) )
+annuaire <- annuaire %>%  dplyr::filter( stringr::str_detect(Unité,"CSD" ) ) # vérification mais normalement l'agenda est directement filté sur CSD uniquement
 annuaire <- annuaire %>% dplyr::mutate(auteur = paste(Prénom, Nom),
                                 mail_clean = stringr::str_remove(mail, "@.*") )%>% dplyr::select(mail_clean, auteur)