Regroupe en décalant d'une colonne toutes les 5 lignes ?

Sub Decaler()
Application.ScreenUpdating = False
Dim Derlg As Integer, i As Integer

Derlg = Range("A65536").End(xlUp).Row

    For i = 6 To Derlg Step 5
        Range("A" & i & ":A" & i + 4).Cut
        Range("B" & i - 5).Select
        ActiveSheet.Paste
            Rows(i & ":" & i + 4).Delete
    Next i
Range("A1").Select
End Sub