diff --git a/global.R b/global.R
index f93b16e1c5b03ccc78fcb8edcd3d5345fd21b5ce..3643d78db77e698047227155cb267a5d8ab18ee6 100644
--- a/global.R
+++ b/global.R
@@ -33,6 +33,7 @@ email_table <- read_csv("annuaire/email_total.csv")
 annuaire <- read_csv("annuaire/annuaire.csv")
 annuaire$Messagerie <- tolower(annuaire$Messagerie)
 annuaire <- annuaire %>% rename( email = Messagerie)
+annuaire <- annuaire %>%  filter( str_detect(Unité,"CSD" ) )
 annuaire <- annuaire %>% mutate(auteur = paste(Prénom, Nom))%>% select(email, auteur)
 
 all_data <- bind_rows(all_data_gitlab, all_data_forge, combined_data)
@@ -42,6 +43,7 @@ all_data <- all_data %>% mutate(message = paste0(type,sep = "  : ",message))
 all_data <- all_data %>% left_join(email_table) # nettoyage de certaine adresse mail invalide
 all_data <- all_data %>% left_join(annuaire) # ajout de auteur des membre du SCTE via l'annuaire
 
+all_data <- all_data %>% dplyr::mutate(etiquette = paste(groupe,topics,sep = ","))
 
 # transformation re_code ----
 traduction <- c(