Suppression ligne en double

Bonjour à tous,

Ma BDD c'est une feuille Excel contenant plusieurs lignes et plusieurs colonnes, mon objectif c'est de supprimer les lignes en doubles. Dans mon cas une ligne est en double si la valeur de cells(D,j)=cells(D,j+1) et celle de cells(N,j)=cells(N,j+1) et églement cells(O,j)=cells(O,j+1).

Comme je suis débutante j'ai essayé de tester quelques codes que j'ai trouvé dans le forum et de les adapter à mon cas mais j'ai pas réussi.

J'ai besoin de votre aide SVPP merci d'avance.

Bonjour wafi, le forum,

Un essai.....plage à adapter....

Sub test()

  Dim plage As Range
   Set plage = Sheets("test").Range("$A$1:$O$10")

   plage.RemoveDuplicates Columns:=Array(4, 14, 15), Header:=xlNo

End Sub

Cordialement,

Bonjour xorsankukai,

Ta solution marche trop bien pour la suppression des lignes en doubles. Par contre, elle me laisse quelques lignes vides au milieu. Je sais pas d'ou vient le problème.

Merci beaucoup.

Re,

Peux-tu joindre ton fichier ?

Cordialement,

Une variante....

Sub test()

  Dim plage As Range, dl As Integer

   With Sheets("test")
            dl = .Range("A" & Rows.Count).End(xlUp).Row     'dernière cellule remplie de la colonne A
     Set plage = .Range("A1:O" & dl)                        'de A1 à O et dernière ligne :  à adapter
         plage.RemoveDuplicates Columns:=Array(4, 14, 15), Header:=xlNo
   End With
End Sub

Cordialement,