let
Source = Table.FromColumns({Lines.FromBinary(Web.Contents("https://inducks.org/publication.php?c=fr%2FJM"))}),
#"Lignes filtrées" = Table.SelectRows(Source, each Text.Contains([Column1], "c1=JM")),
#"Personnalisée ajoutée" = Table.AddColumn(#"Lignes filtrées", "URL", each Text.BetweenDelimiters([Column1],"=JM",""">all")),
#"Autres colonnes supprimées" = Table.SelectColumns(#"Personnalisée ajoutée",{"URL"}),
#"Personnalisée ajoutée2" = Table.AddColumn(#"Autres colonnes supprimées", "Pages", each Web.Page(Web.Contents("https://inducks.org/issue2.php?c=fr&c1=JM"&[URL]))),
#"Pages développé" = Table.ExpandTableColumn(#"Personnalisée ajoutée2", "Pages", {"Data"}, {"Data"}),
#"Data développé" = Table.ExpandTableColumn(#"Pages développé", "Data", {"Code de l'histoire", "Titre", "Nombre de pages", "Auteurs", "Publications", "Personnages, commentaires"}, {"Code de l'histoire", "Titre", "Nombre de pages", "Auteurs", "Publications", "Personnages, commentaires"}),
#"Valeur remplacée" = Table.ReplaceValue(#"Data développé","#(lf)#(lf)","#(lf)",Replacer.ReplaceText,{"Code de l'histoire", "Titre", "Nombre de pages", "Auteurs", "Publications", "Personnages, commentaires"})
in
#"Valeur remplacée"