diff --git a/app.R b/app.R
index c5dbbd6..6ce8f17 100644
--- a/app.R
+++ b/app.R
@@ -24,10 +24,10 @@ names(racine) <- racines$codlib
 racine <- racine[racine %in% GHM$GHM]
 rm(racines)
 
+# Lecture codes postaux <-> codes insee et garder ceux existants ----
 read_csv2("insee.csv") %>%
   select(Codepos, insee = INSEE) %>%
-# filter(Codepos %in% GHM$CP),
-  filter(Codepos %>% str_detect("^(54|57|55|88)")) %>%
+  filter(Codepos %in% GHM$CP) %>%
   mutate(insee = insee %>% as.character)-> insee
 
 readOGR("communes/") -> communes