Microsoft 365 Fichier XML dans excel

let
    Source = Xml.Tables(File.Contents("C:\Users\STAPLE\Documents\Test_feed_28.xml")),
    Table0 = Source{0}[Table],
    #"Type modifié" = Table.TransformColumnTypes(Table0,{{"product-id", type text}, {"id_supplier", Int64.Type}, {"supplier_reference", type text}, {"id_manufacturer", Int64.Type}, {"location", type text}, {"height", type text}, {"width", type text}, {"weight", type text}, {"depth", type text}, {"on_sale", Int64.Type}, {"reference", type date}, {"isbn", type text}, {"upc_barcode", type text}, {"mpn", type text}, {"active", Int64.Type}, {"date_add", type datetime}, {"date_upd", type datetime}, {"condition", type text}, {"available_for_order", type text}, {"visibility", type text}, {"retail_price", Int64.Type}, {"cost_price", type text}, {"ecotax", Int64.Type}, {"inventory-count", Int64.Type}, {"quantity_discount", Int64.Type}, {"out_of_stock", Int64.Type}, {"minimal_quantity", Int64.Type}, {"id_category_default", Int64.Type}, {"supplier_name", type text}, {"link_rewrite", type text}, {"meta_description", type text}, {"meta_keywords", type text}, {"meta_title", type text}, {"product-name", type text}, {"available_now", type text}, {"available_later", type text}, {"cart_default", type text}, {"home_default", type text}, {"large_default", type text}, {"medium_default", type text}, {"small_default", type text}, {"name_category_default", type text}, {"link", type text}, {"parent_id_product", Int64.Type}, {"additional_id_product", Int64.Type}, {"additional_id_combination", type text}, {"reference_with_prefix", type date}, {"parent_reference", type text}, {"ean-13_with_prefix", type text}, {"days_back_created", Int64.Type}, {"unit", type text}, {"unit_price", type text}, {"unit_price_excl_tax", type text}, {"shipping_country", type text}, {"shipping_country_code", type text}, {"product_tags", type text}, {"available_date", type text}, {"price", type text}, {"sale_price_tax_excl", type text}, {"price-discounted-from", type text}, {"shipping_price", type date}, {"discount_amount_only", Int64.Type}, {"discount_rate", Int64.Type}, {"tax_rate", Int64.Type}, {"stock_status", type text}, {"ids_of_all_categories", Int64.Type}, {"category_url", type text}, {"product_category_tree", type text}, {"Format", type text}, {"Appellation", type text}, {"Mill__sime", Int64.Type}, {"Couleur", type text}, {"Classement", type text}, {"Volume_de_r__f__rence", type text}, {"R__gion", type text}, {"Type_de_vieillissement", type text}, {"Stockage", type text}, {"Temp__rature_de_service", type text}, {"Pastilles", type text}, {"Conditionnement", type text}, {"Format_et_conditionnement", type text}})
in
    #"Type modifié"

Sub Macro2()
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "FINDER;C:\Users\STAPLE\Documents\Test_feed_28.xml", Destination:= _
        Range("$A$1"))
        .Name = "Test_feed_28"
        .FieldNames = True
        .RowNumbers = False
        .PreserveFormatting = True
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .Refresh BackgroundQuery:=False
    End With   
End Sub