let
Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
FractPipe = Table.ExpandListColumn(Table.TransformColumns(Source, {{"Essai", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Essai"),
FractExcla = Table.SplitColumn(FractPipe, "Essai", Splitter.SplitTextByDelimiter("!", QuoteStyle.Csv), {"Essai.1", "Essai.2", "Essai.3", "Essai.4", "Essai.5"}),
Rename = Table.RenameColumns(FractExcla,{{"Essai.2", "Alt"}, {"Essai.1", "Lien"}, {"Essai.3", "Title"}, {"Essai.4", "Description"}, {"Essai.5", "Caption"}}),
Extract = Table.TransformColumns(Rename, {{"Alt", each Text.AfterDelimiter(_, ": "), type text}, {"Title", each Text.AfterDelimiter(_, ": "), type text}, {"Description", each Text.AfterDelimiter(_, ": "), type text}, {"Caption", each Text.AfterDelimiter(_, ": "), type text}})
in
Extract