essaye peut être ainsi, si j'ai bien compris, pas sûr...
Code:
Sub test3()
Dim i As Long
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If Cells(i, 2) = Cells(i - 1, 2) And Cells(i, 4) = Cells(i - 1, 4) Then _
Rows(i).Delete
Next i
End Sub
sauvegarde ton fichier au préalable, car suppression de lignes...
c'est les colonnes a et d qui me genaient.. donc j'ai écrit ce que tu m'as dit de cette maniere ... :
Code:
Sub teste4()
Dim i As Long
i = 2
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) Then Rows(i).Delete
Next i
End Sub
et ca me souligne ca en jaune :
Code:
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) Then Rows(i).Delete
mets une petif fichier exemple, pas plus de 10 lignes car là en 'état vois pas trop.... A noter que dans le code donné, tu testes la colonne A et D en non B et D comme précisé dans ton 1er post...
le code ci-dessous a supprimé 7 lignes sur le fichier donné :
Code:
Sub test3()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) Then _
Rows(i).Delete
Next i
End Sub