let
    Source = TERGET_LIST,

    expandHierarchy = (table, iter) =>
        let
            joinedTable = Table.NestedJoin(table, {"Target Child_ID  LIST"}, HIERARCHY, {"Child_ID"}, "HIER_L" & Text.From(iter), JoinKind.Inner),
            Personnalisé = Table.ExpandTableColumn(joinedTable, "HIER_L" & Text.From(iter), {"Parent_Id", "Parent_Name"}, {"Id_parent_" & Text.From(iter + 1), "Parent_" & Text.From(iter + 1)})
        in
            Personnalisé,

    iterations = List.Generate(() => 0, each _ < 7 and Table.RowCount(expandHierarchy(Source, _)) > 0, each _ + 1),
    expandedTable = List.Accumulate(iterations, Source, (state, current) => expandHierarchy(state, current)),
    resultTable = if List.Count(iterations) > 0 then expandedTable else null
in
    resultTable

let
    Source = Hierarchy,
    ListEnfant = List.Buffer( Source[#"Id Compte enfant"] ),
    ListParentID = List.Buffer( Source[#"Id Compte parent"] ),

    fnAncetre =  (n as text) as text =>
        let
            PosOfParent = List.PositionOf( ListEnfant, n ),
            ParID = if PosOfParent >= 0 then ListParentID{PosOfParent} else null
         in
            if ParID = null then n else @fnAncetre(ParID),

    AncetreID = Table.AddColumn( Source, 
                                  "HighestParent", 
                                  each  fnAncetre( [#"Id Compte enfant"] ), 
                                  type text)
in
    AncetreID

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"OneKey", type text}, {"DATE", type date}, {"TYPE", type text}, {"Nb", Int64.Type}}),
    #"Colonne dynamique" = Table.Pivot(#"Type modifié", List.Distinct(#"Type modifié"[TYPE]), "TYPE", "Nb", List.Sum),
    #"Valeur remplacée" = Table.ReplaceValue(#"Colonne dynamique",null,0,Replacer.ReplaceValue,{"OneKey", "DATE", "DSP", "MSL"}),
    #"Lignes triées" = Table.Sort(#"Valeur remplacée",{{"DATE", Order.Ascending}, {"OneKey", Order.Ascending}}),
    #"Année insérée" = Table.AddColumn(#"Lignes triées", "Année", each Date.Year([DATE]), Int64.Type),
    #"Lignes groupées" = Table.Group(#"Année insérée", {"OneKey", "Année"}, {{"tab", each _, type table [OneKey=text, DATE=date, DSP=nullable number, MSL=nullable number, Année=number]}}),
    call_fn_tot_cumul = Table.ReplaceValue(#"Lignes groupées",each [tab],each fn_tot_cumul([tab],[tab][DSP],"Cumul_det_DSP"),Replacer.ReplaceValue,{"tab"})[[tab]],
    #"tab développé" = Table.ExpandTableColumn(call_fn_tot_cumul, "tab", {"OneKey", "DATE", "DSP", "MSL", "Année", "Cumul_det_DSP"}, {"OneKey", "DATE", "DSP", "MSL", "Année", "Cumul_det_DSP"})
in
    #"tab développé"

Public Sub saveAttachtoNet(itm As Outlook.MailItem)
Set objInbox = Session.GetDefaultFolder(olFolderInbox).Items
    Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
If Item.Class = olMail And InStr(1, Item.Subject, "masha_obj") > 0
And obj.SenderEmailAddress = "masha@mail.ru" Then
If Item.Attachments.Count > 0 Then
Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
    saveFolder = "C:\Test\" & _
                    "Extracted ZIP"

    
    Dim TxtInMail As String
    TxtInMail = "Hello world:"
    Dim StrStart As Integer
    StrStart = InStr(1, _
                    itm.Body, _
                    TxtInMail, _
                    vbTextCompare) + Len(TxtInMail) + 1
    Dim DataDate As String
    DataDate = replace(Trim(Mid(itm.Body, _
                    StrStart, _
                    InStr(StrStart + 1, itm.Body, Chr(10)) - StrStart - 1)),"/","_")

    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "\" & DataDate & "__" & objAtt.DisplayName
        Set objAtt = Nothing
    Next objAtt
    End Sub