diff --git a/donnees.R b/donnees.R
index fcd789c..3d667b6 100644
--- a/donnees.R
+++ b/donnees.R
@@ -159,7 +159,7 @@ exhau[exhau$mois == mois,]$manq <- gam %>% nrow
 save(exhau, file = "exhau.Rdata")
 
 # Données extraites de web100T pour l'exhaustivité par service
-exhau_pims <- read_csv("exhau_pims.csv")
+exhau_pims <- read_csv("exhau_pims.csv", locale = locale(encoding = "ISO-8859-1"))
 names(exhau_pims) <- c("Pole", "Service", "RUM", "DP", "Erreur", "Sortie")
 
 exhau_pims %<>%