ActiveWorkbook.Queries.Add Name:="TableauINFODISPO", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source = Excel.CurrentWorkbook(){[Name=""TableauINFODISPO""]}[Content]," & Chr(13) & "" & Chr(10) & " #""Type modifié"" = Table.TransformColumnTypes(Source,{{""OF"", Int64.Type}, {""ARTICLE"", type text}, {""COMPOSANT"", type any}, {""TYPE"", type text}, {""DESC COMPOSANT"", type text}, {""Besoin"", type date}, {""BESOIN N° SEM"", Int64.Type}, {""AT"", type text}, {""Supply"", type" & _
" text}, {""ARRIVEE PROGRAMMEE"", type date}, {""CONTACT"", type text}, {""Renseignement"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Type modifié"""