diff --git a/data-raw/chargement_aom_epci.R b/data-raw/chargement_aom_epci.R
index ce66d9fe4c2024703991da0f810aa0e525756cb2..4a154ce006e15a4ecd309527fe0548dd97a2e9c7 100644
--- a/data-raw/chargement_aom_epci.R
+++ b/data-raw/chargement_aom_epci.R
@@ -2,9 +2,10 @@
 # chargement_aom_epci
 
 # chargement des autorités organisatrices de la mobilité (AOM) à partir du site Banatic
-# https://www.banatic.interieur.gouv.fr/V5/fichiers-en-telechargement/fichiers-telech.php# dans fichiers en télechargement, fichier "France"-"compétence des groupements"
-# fichier excel , transformé en csv
-# données au 01/04/2022
+# https://www.banatic.interieur.gouv.fr/V5/fichiers-en-telechargement/fichiers-telech.php
+# dans Archives, prendre la dernière année, type d'archive: "périmetre des groupements", 
+# échelon "France"-télécharger le tableau csv
+# données au 01/04/2024
 # valeur des codes de compétence disponibles sur 
 # https://www.banatic.interieur.gouv.fr/V5/ressources/documents/document_reference/Banatic_Metadonnees2019.xlsx
 # le code correspondant aux AOM est le C4530 "Organisation de la mobilité, au sens des articles L.1231-1 et suivants du code des transports"
@@ -23,12 +24,15 @@ library(dplyr)
 library(COGiter)
 library(DBI)
 library(RPostgreSQL)
+library(datalibaba)
+library(googlesheets4)
 
 rm(list = ls())
 
 
 # chargement des données --------
-aom <- read.csv2("extdata/AOM_Compétences des groupements - France entière.csv",
+# aom <- read.csv2("extdata/AOM_Compétences des groupements - France entière.csv",
+aom <- read.csv2("extdata/aom_Périmètre_des_groupements_en_2024.csv",
                  dec='.', 
                  header = TRUE, 
                  sep=";",
@@ -44,13 +48,14 @@ epci_interreg <- epci %>%
   mutate(EPCI=as.character(EPCI))%>% 
   pull(EPCI)
 
-date = 2022
+date = 2024
 
 aom <- aom %>%
   mutate(N..SIREN = as.character(N..SIREN)) %>%
   filter(C4530 == 1 , N..SIREN %in% epci_interreg)%>%
   rename(epci = N..SIREN) %>% 
   select("epci") %>%
+  unique() %>% 
   mutate(date = make_date(date,04,01), AOM ="TRUE") %>% 
   mutate(epci = fct_expand(epci, epci_interreg)) %>%  
   complete(epci,date,fill = list(AOM = "FALSE"))