bonjour,
je l'ai fait via une macro
Sub aargh()
Set ws = Sheets.Add
With Sheets("feuil2")
dl = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To dl Step 15
col = col + 1
ws.Cells(1, col).Value = .Cells(i, 1).Value
ws.Cells(2, col).Resize(15, 1).Value = .Cells(i, 2).Resize(15, 1).Value
Next i
End With
End Sub
Ce doit être possible via powerquery, mais je suis tombé sur un message d'erreur trop de colonnes (que je ne sais comment résoudre).