Supprimer / Supprimer les lignes en double de 5 colonnes

entrez la description de l'image ici Je souhaite supprimer / supprimer toutes les lignes en double de 5 colonnes qui n'ont pas d'en-têtes. J'ai enregistré une opération en macro et le code est ici:

Sub Macro11() Columns("D:D").Select Selection.SpecialCells(xlCellTypeConstants, 23).Select ActiveSheet.Range("$A$1:$E$8").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), _ Header:=xlNo Range("A1").Select End Sub 

Je veux que la scope supérieure soit variable car mon nombre de lignes varie. J'ai comparé la colonne 'C' pour supprimer les duplicates. Il sera OK de comparer chaque ligne ou chaque cellule uniquement de coulmn 'D'.

Le code ci-dessous fonctionne bien pour moi: Sub Macro11() ActiveSheet.Range("A:E").RemoveDuplicates Columns:=4, Header:=xlNo End Sub