let
Source = Excel.CurrentWorkbook(){[Name="T_data"]}[Content],
#"Autres colonnes supprimées" = Table.SelectColumns(Source,{"typ1ge", "No1", "Voie", "Commune", "code", "numéro ","Pot IP"}),
#"Espaces supprimés" = Table.TransformColumns(Table.TransformColumnTypes(#"Autres colonnes supprimées", {{"No1", type text}}, "fr-FR"),{{"No1", Text.Trim, type text}}),
#"Valeur remplacée" = Table.ReplaceValue(#"Espaces supprimés","?","",Replacer.ReplaceText,{"No1"}),
#"Type modifié" = Table.TransformColumnTypes(#"Valeur remplacée",{{"Pot IP", Int64.Type}, {"typ1ge", Int64.Type}, {"numéro ", Int64.Type}, {"No1", Int64.Type}}),
#"Colonnes fusionnées" = Table.CombineColumns(#"Type modifié",{"Voie", "Commune"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Rues"),
#"Lignes groupées" = Table.Group(#"Colonnes fusionnées", {"Rues", "code", "typ1ge", "numéro "}, {{"Min", each List.Min([No1]), Int64.Type}, {"Max", each List.Max([No1]), Int64.Type}, {"Nombre", each List.Sum([Pot IP]), Int64.Type}}),
#"Personnalisée ajoutée" = Table.AddColumn(#"Lignes groupées", "Rue", each if [Min]=null and [Max]=null then [Rues] else if [Min]=[Max] then Text.From([Min]) & ", " & [Rues] else "du " & Text.From([Min]) & " au " & Text.From([Max]) & ", " & [Rues]),
#"Autres colonnes supprimées1" = Table.SelectColumns(#"Personnalisée ajoutée",{"typ1ge", "Rue", "code", "Nombre", "numéro "})
in
#"Autres colonnes supprimées1"