Agregar filas en función del valor de una celda.

Es sin duda que en una línea en D en lugar de tener un número hay texto u otra cosa
Imposible de decir sin ver tu archivo
Publica un ejemplo de tu archivo en cjoint.com, crea un enlace que copies y vuelve a pegar aquí

--
"La imaginación es más importante que el conocimiento." A. Einstein

Buenas noches,

Aquí tienes un código que duplicará tus líneas el número de veces deseado (ingresado en la columna D)
pero controlando antes cuántas veces ya está presente la línea (analizando las columnas de A a C). Es decir, si tu línea ya ha sido duplicada en una primera ejecución de la macro, no la volverá a duplicar, o si es necesario, solo la cantidad que falta.

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

Buena noche

Jc

--
Ganar tiempo: Un ejemplo siempre será más elocuente que una larga prosa, así que publica un ejemplo de tu archivo y del resultado esperado: