Ajouter des lignes en fonction de la valeur d'une cellule.

Option Explicit
Sub maj()
Dim i, j, k, n, der As Long
Dim cpte, dif, nbr As Integer
Dim marque, nom, taille, px As String
der = Range("A65536").End(xlUp).Row
For n = 2 To der
    For i = 2 To der
        If Range("D" & i) > 1 Then
        cpte = 0
        nbr = Range("D" & i).Value
        marque = Range("A" & i).Value
        nom = Range("B" & i).Value
        taille = Range("C" & i).Value
            Do While Range("A" & i).Offset(cpte, 0) = marque And Range("B" & i).Offset(cpte, 0) = nom And Range("C" & i).Offset(cpte, 0) = taille
            Range("D" & i).Offset(cpte, 0) = Range("D" & i).Value
            cpte = cpte + 1
            Loop
            i = i + cpte - 1
                If cpte < nbr Then
                dif = nbr - cpte
                    Do While dif > 0
                    Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                    Rows(i).Copy Rows(i + 1)
                    Application.CutCopyMode = False
                    i = i + 1
                    dif = dif - 1
                    der = der + 1
                    Loop
                End If
        End If
    Next i
Next n
End Sub