Insertion de 2 lignes suite modidication de présentation

Bonjour,

Vous avez demandé de l'aide, il y a peu, pour un code d'insertion de lignes. La solution (toute cuite) vous a été proposée ICI.
Visiblement, vous ne vous êtes pas demandé comment fonctionnait ce code, sinon votre nouveau questionnement n'aurait pas lieu d'être.

Afin d'être tout à fait pédagogique, je vous propose de l'aide dans la compréhension du code que vous a proposé f894009.
Dites moi ce que vous n'avez pas compris.

Bonjour,

pijaku: pas grave

lolotopo:

Sub insert_lig()
    With Worksheets("feuil1")
        'ligne de depart
        x = 2
        'boucle de balayage
        Do While .Range("A" & x) <> ""
            'insertion de 1 ligne
            '.Rows(x).Insert Shift:=xlDown
            'insertion de 2 lignes
            .Rows(x & ":" & x + 1).Insert Shift:=xlDown
            'ligne suivante
            x = x + 3
        Loop
    End With
End Sub