let
Source = Excel.CurrentWorkbook(){[Name="Donnees"]}[Content],
#"Type modifié" = Table.TransformColumnTypes(Source,{{"Source", type text}}),
#"Index ajouté" = Table.AddIndexColumn(#"Type modifié", "Index", 0, 1),
#"Duplication de la colonne" = Table.DuplicateColumn(#"Index ajouté", "Source", "SourceMAJ"),
#"Texte en majuscules" = Table.TransformColumns(#"Duplication de la colonne",{{"SourceMAJ", Text.Upper, type text}}),
#"Fractionner la colonne par délimiteur" = Table.ExpandListColumn(Table.TransformColumns(#"Texte en majuscules", {{"SourceMAJ", Splitter.SplitTextByDelimiter("TI", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "SourceMAJ"),
#"Personnalisée ajoutée" = Table.AddColumn(#"Fractionner la colonne par délimiteur", "TI", each try("TI"&Number.ToText(Number.From(Text.Start([SourceMAJ],6)),"000000")) otherwise null),
#"Lignes triées" = Table.Sort(#"Personnalisée ajoutée",{{"Index", Order.Ascending}, {"TI", Order.Descending}}),
#"Index ajouté1" = Table.AddIndexColumn(#"Lignes triées", "Index.1", 0, 1),
#"Lignes groupées" = Table.Group(#"Index ajouté1", {"Source"}, {{"Tabl", each _, type table}}),
#"Personnalisée ajoutée1" = Table.AddColumn(#"Lignes groupées", "TI", each List.First(Table.Column([Tabl],"TI"))),
#"Colonnes supprimées" = Table.RemoveColumns(#"Personnalisée ajoutée1",{"Tabl"})
in
#"Colonnes supprimées"