transformation rows into columns

Hi alsolok 

You can put the following code to advanced editor in power query

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("tZNNbsIwEIWvYmU9Sj2Of+IlCFA3lIqqK8QigqQgpYoELRJH4hxcrAHPJFHUHWGR5Mlv/I3nWVmtIi8+zmWZiZcIounnsn4LehCMtjFiZ6m3jFLGUkZrWEXjt5l4jDCrDkW2/3kM4sV4V53zzjTobx5EVskgEMGlrMk0bHpIGw+8ZFk3Su78+WL6JHJ//GHpvs5IjLNdmwvjE6o1YB3DaIUxGhqJgFxVt7YBPpq8PwO7vF6+9vkzyPc0XrPtuY3DhppUGUZ4Q/vIci1dsXRcgyZGE8KYL0bDU3tZDMb1uk5inn1n2+q389MQ1nofm5tIQHsXJFmGWQoarNNUozBO3J1/zMtCHPPDab9pTy9DldO0L+EbIqNlO+rm6VvPa9N/f5chmJP81PB02Ga5KgFUNJ3uE0Ez0xpFCcg4tZ2bE0U47/WSD9xi/Qc=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [#"Prenom / Projet / facturation" = _t, Devise = _t, rec_quantité = _t, rec_montant = _t, rec_total = _t, dep_quantité = _t, dep_montant = _t, dep_total = _t, marge = _t, taux = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Prenom / Projet / facturation", type text}, {"Devise", type text}, {"rec_quantité", type number}, {"rec_montant", type number}, {"rec_total", type number}, {"dep_quantité", type number}, {"dep_montant", Int64.Type}, {"dep_total", Int64.Type}, {"marge", type number}, {"taux", type number}}),
    #"Added Index" = Table.AddIndexColumn(#"Changed Type", "Index", 1, 1, Int64.Type),
    #"Added Custom" = Table.AddColumn(#"Added Index", "Custom", each if Text.Contains([#"Prenom / Projet / facturation"],"/") then Table.RowCount(Table.SelectRows(#"Added Index",(x)=>x[Index]<=[Index] and Text.Contains(x[#"Prenom / Projet / facturation"],"/"))) else null),
    #"Filled Down" = Table.FillDown(#"Added Custom",{"Custom"}),
    #"Added Custom1" = Table.AddColumn(#"Filled Down", "Custom.1", each let 
 a=List.Max(Table.SelectRows(#"Filled Down",(x)=>x[Index]<=[Index] and Text.Contains(x[#"Prenom / Projet / facturation"],"/"))[Index])
  in if [Index]>=a and [Index] <a+3 then [Custom] else [Custom]+0.5),
    #"Added Custom2" = Table.AddColumn(#"Added Custom1", "Custom.2", each let a=Table.SelectRows(#"Added Custom1",(x)=>x[Custom.1]=[Custom.1])[#"Prenom / Projet / facturation"],
b= if [Custom.1]-Number.RoundDown([Custom.1])=0.5 then List.Max(Table.SelectRows(#"Added Custom1",(x)=>x[Index]<[Index] and Text.Contains(x[#"Prenom / Projet / facturation"],"/"))[Index]) else null,
c=List.Max(Table.SelectRows(#"Added Custom1",(x)=>x[Index]=b)[#"Prenom / Projet / facturation"])
in Text.Combine({c,Text.Combine(a,"/")},"/")),
    #"Replaced Value" = Table.ReplaceValue(#"Added Custom2","//","/",Replacer.ReplaceText,{"Custom.2"}),
    #"Added Custom3" = Table.AddColumn(#"Replaced Value", "Custom.3", each Number.Mod([Index],3)),
    #"Filtered Rows" = Table.SelectRows(#"Added Custom3", each ([Custom.3] <> 1)),
    #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Prenom / Projet / facturation", "Index", "Custom", "Custom.1", "Custom.3"}),
    #"Reordered Columns" = Table.ReorderColumns(#"Removed Columns",{"Custom.2", "Devise", "rec_quantité", "rec_montant", "rec_total", "dep_quantité", "dep_montant", "dep_total", "marge", "taux"}),
    #"Renamed Columns" = Table.RenameColumns(#"Reordered Columns",{{"Custom.2", "Prenom / Projet / facturation"}}),
    #"Removed Duplicates" = Table.Distinct(#"Renamed Columns", {"Prenom / Projet / facturation"})
in
    #"Removed Duplicates"

Output

Best Regards!

Yolo Zhu

If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.