let
Source = Excel.Workbook(File.Contents("C:\Users\tla4jny\Desktop\Fichier Forum.xlsx"), null, true),
SupprCol = Table.SelectColumns(Source,{"Name", "Data"}),
Rename = Table.RenameColumns(SupprCol,{{"Name", "Appro"}}),
Filtr = Table.SelectRows(Rename, each ([Appro] = "AD" or [Appro] = "BB" or [Appro] = "EC Frais" or [Appro] = "EC Surg" or [Appro] = "PB Frais" or [Appro] = "PB Sec" or [Appro] = "SP" or [Appro] = "SS" or [Appro] = "SV Frais" or [Appro] = "SV Sec" or [Appro] = "SV Surg")),
[COLOR=rgb(235, 107, 86)][B]Expand = Table.ExpandTableColumn(Filtr, "Data", {"Column6"}, {"Data.Column6"}),[/B][/COLOR]
AjtIdx = Table.Combine(Table.Group(Expand, "Appro", {{"Idx", each Table.AddIndexColumn(_,"Numérotation",1) }})[Idx])
in
AjtIdx