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 : Sélectionner tout - Visualiser dans une fenêtre à part
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