diff --git a/app.R b/app.R
index e2761f2..8bbf01c 100644
--- a/app.R
+++ b/app.R
@@ -26,10 +26,10 @@ racine <- racine[racine %in% GHM$GHM]
 rm(racines)
 
 # Lecture codes postaux <-> codes insee et garder ceux existants ----
-read_csv2("insee.csv") %>%
+read_csv2("insee.csv", col_types = cols(INSEE = col_character())) %>%
   select(Codepos, insee = INSEE) %>%
-  filter(Codepos %in% GHM$CP) %>%
-  mutate(insee = insee %>% as.character)-> insee
+  mutate(insee = insee %>% str_pad(5, "left", "0")) %>%
+  filter(Codepos %in% GHM$CP) -> insee
 
 # Lecture carte et join avec codes postaux ----
 readOGR("communes", "communes-20150101-100m") -> communes