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

[beoper]

Bonsoir à tous,

J'ai plusieurs centaines de lignes que j'aimerais regrouper sur 2 colonnes.
Cf. fichier joint qui je l'espère sera plus explicite.

Merci d'avance

 

[Chris401]

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

Bonsoir

Peux-tu essayer :

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

Cordialement
Chris

 

[beoper]

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

Bonsoir Chris,

Merci beaucoup. çà marche super.

Encore merci et bonne soirée,
Bien cordialement