Autres Formule ou macro?

Option Explicit

Sub Essai()
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row
  If n = 1 And IsEmpty([A1]) Then Exit Sub
  Dim i&, j&, k&
  k = 1: Application.ScreenUpdating = 0
  For i = 1 To n
    For j = 5 To 1 Step -1
      Cells(k, 6) = Cells(i, j): k = k + 1
    Next j
  Next i
End Sub

=INDEX($A$1:$E$4;ARRONDI.SUP(LIGNE()/5;0);SI(MOD(LIGNE();5)=1;5;SI(MOD(LIGNE();5)=2;4;SI(MOD(LIGNE();5)=3;3;SI(MOD(LIGNE();5)=4;2;1)))))