Bonsoir à tous,
A tout hasard je vous propose aussi une solution en VBA comme ça vous aurez le choix, mais Power Query est idéal.
Sub Rangement()
Dim DerLig As Long, Lig_Dest As Long, Nb_Lig As Long, i As Long
Application.ScreenUpdating = False
DerLig = Range("A1").CurrentRegion.Rows.Count
Nb_Lig = Int(DerLig / 7)
Lig_Dest = 1
For i = 1 To DerLig Step 7
Range(Cells(Lig_Dest, "B"), Cells(Lig_Dest, "H")).Value = Application.Transpose(Range(Cells(i, "A"), Cells(i + 6, "A")))
Lig_Dest = Lig_Dest + 1
Next i
End Sub
Cdlt