diff --git a/app.R b/app.R
index 3dae1c0..3cbecfb 100644
--- a/app.R
+++ b/app.R
@@ -7,9 +7,12 @@ library(rgdal)
 library(plotly)
 library(stringr)
 
-read.csv("ghm.csv") %>%
+# Lecture fichier de GHM ----
+read_csv("ghm.csv", col_types = cols(IPP = col_character())) %>%
   `names<-`(c("IPP", "IEP", "Age", "Sexe", "CP", "GHM", "date_entree", "date_sortie")) %>%
-  mutate(DS = as.numeric(date_sortie - date_entree),
+  mutate(date_entree = date_entree %>% as.Date(format = "%Y/%m/%d"),
+         date_sortie = date_sortie %>% as.Date(format = "%Y/%m/%d"),
+         DS = as.numeric(date_sortie - date_entree),
          Sexe = Sexe %>% factor(labels = c("Homme", "Femme"))) -> GHM
 
 read_csv2("insee.csv") %>%