let
Source = Folder.Files(Dossier),
// Définit le répertoire contenant les fichiers à traiter
Filtr0 = Table.SelectRows(Source, each Text.Contains([Name], "CA") and not Text.StartsWith([Name], "~")),
// On fait un filtre sur les fichiers dont le nom contient "CA"
// Si un de ces fichiers est ouvert, il y a alors un raccourci commençant par ~ , qu'on ne prend donc pas en compte
Transform = Table.TransformColumns(Filtr0, { "Content", each Excel.Workbook(_, true )})[[Content]],
// On transforme tous les fichiers en Table, et on ne conserve que la colonne Content
Expand0 = Table.ExpandTableColumn(Transform, "Content", {"Name", "Data", "Item", "Kind"}, {"Name", "Data", "Item", "Kind"}),
// On développe les fichiers afin d'avoir la liste des onglets, noms définis, Tableaux...
Filtr1 = Table.SelectRows(Expand0, each ([Kind] = "Sheet") and ([Item] <> "Config" and [Item] <> "Total"))[[Data]],
// On fait un filtre afin de ne conserver que les onglets ([Kind] = "Sheet") et dont le nom est différent de Config et Total
// On ne conserve que les colonnes Item (pour avoir le nom des mois) et Data (contenant les données des onglets)
Expand1 = Table.ExpandTableColumn(Filtr1, "Data", {"Column1", "Column2", "Column6"}, {"Column1","Nom", "Jours restants"}),
// On développe les 3 colonnes qui nous intéressent, la Column1 pour faire le filtre ultérieur sur la ligne 4
Filtr2 = Table.SelectRows(Expand1, each ([Column1] = "Agent :")),
//Filtre sur la ligne 4 (qui contient l'info "Agent :")
SupprCol = Table.SelectColumns(Filtr2,{"Nom", "Jours restants"})
//On peut supprimer la Column1, qui ne sert plus
in
SupprCol