Insertion d'un nombre variable de lignes

Bonjour à tout le monde

Je souhaite insérer un nombre variable de ligne dans un tableau xls, le nombre de ligne à insérer est dans une colonne "D".

exp:

A B C D
2 2 2 -
3 2 2 =3-2: 1 c la diff entre la ligne 1 et 2: 3-2 donc insert 1 ligne entre ligne 1 et 2)
3 7 2 =7-2: 5 ligne à insérer entre ligne 2 et 3


Merci pour votre aide

bonjour mout94,

Code:

---

1 2 3 4

For i = Range("A65536").End(xlUp).Row To 2 Step -1 x = Range("B" & i) - Range("C" & i) If x > 0 Then Rows(i & ":" & i + x - 1).Insert Shift:=xlDown Next

---