Transformer un fichier Excel

Bonjour,

J'aurai besoin d'appliquer quelques transformations à mon fichier comme suite :

-Pour chaque ligne je veux garder que les cellules A et B en vert

-Pour le reste des cellules, chaque 4 cellules je veux les couper et les insérer par la suite dans une nouvelle ligne

Voir le résultat souhaité du traitement manuel de la première ligne sur feuil2
Merci d'avance

Une proposition :

Sub Macro1()
    Dim nL As Long, i As Long, j As Long, k As Long, compt As Long, index As Long
    Dim wS1 As Worksheet, wS2 As Worksheet

    Set wS1 = Sheets("Feuil1")
    Set wS2 = Sheets("Feuil2")
    nL = wS1.Cells(Rows.Count, "A").End(xlUp).Row

    compt = -7
    For i = 1 To nL
        compt = compt + 8
        wS2.Cells(compt, 1) = wS1.Cells(i, 1)
        wS2.Cells(compt, 2) = wS1.Cells(i, 2)
        index = 2
        For j = 1 To 7
            For k = 1 To 4
                index = index + 1
                wS2.Cells(compt + j, k) = wS1.Cells(i, index)
            Next k
        Next j
    Next i

    Sheets("Feuil2").Activate
End Sub