Insertion ligne avec condition en VBA

Bonjour,

je voudrais insérer une ligne en fonction des conditions dans ma colonne D pour faire si D2 est différent de D3, j'insère une ligne entre D2 et D3 si c'est vrai.

Pièce jointe 270773

Et avec monde code faire ça
Pièce jointe 270774

avec mon code

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Inserer_une_ligne() Dim i As Integer Worksheets("Import").Activate   For i = 2 To 100 If Cells(i, 4).Value = "" Then If Cells(i, 4).Value <> Cells(i + 1, 4) Then ActiveCell(i, 4).EntireRow.Insert Next i   End Sub

---

mais je fais une mauvaise manip, pourriez vous m'aiguiller, svp ?

Merci bien

Bonjour,

Essaye de boucler a l'envers (for i=100 to 2 step -1)

c'est bon j'ai resolu mon problème.
merci bien

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Inserer_une_ligne() Dim i As Integer Worksheets("Import").Activate   For i = 2 To 100 If Cells(i, 4).Value <> Cells(i + 1, 4) Then Rows(i + 1).Insert   i = i + 1 End If     Next i End Sub

---