let
Source = Excel.CurrentWorkbook(){[Name="t_ListePVP"]}[Content],
#"Type modifié" = Table.TransformColumnTypes(Source,{{"NomFichier", type text}, {"Path", type text}}),
#"Fonction personnalisée appelée" = Table.AddColumn(#"Type modifié", "Extraire_Sanction", each Extraire_Sanction([Path])),
#"Extraire_Sanction développé" = Table.ExpandTableColumn(#"Fonction personnalisée appelée", "Extraire_Sanction", {"Sanction", "Cell", "Module", "Pack", "BMS", "System complet", "Component", "Final Application", "Non affecté", "Total"}, {"Sanction", "Cell", "Module", "Pack", "BMS", "System complet", "Component", "Final Application", "Non affecté", "Total"}),
#"Colonnes supprimées" = Table.RemoveColumns(#"Extraire_Sanction développé",{"Path"})
in
#"Colonnes supprimées"