Bonjour à toutes et à tous,

J'ai besoin de supprimer automatiquement les lignes qui contiennent une même valeur dans la colonne A en sachant que seule dernière ligne contenant un doublon doit être conservée. VOici un exemple pour expliciter mon propos:

REFERENCE REFERENCE 2 INDICE ORIGINE
REF1 REF_ABC INDICE_1 PARIS
REF1 REF_ERT INDICE_2 PARIS
REF1 REF_DBE INDICE_3 PARIS
REF2 REF_FTC INDICE_1 PARIS
REF2 REF_DRTC INDICE_2 PARIS
REF3 REF_XXX INDICE_1 PARIS
REF3 REF_YYY INDICE_2 PARIS


Ce que je cherche à faire, c'est supprimer les lignes 1,2,4 et 6 pour ne conserver que les lignes 3, 5 et 7:

REFERENCE REFERENCE 2 INDICE ORIGINE
REF1 REF_DBE INDICE_3 PARIS
REF2 REF_DRTC INDICE_2 PARIS
REF3 REF_YYY INDICE_2 PARIS

J'ai commencé mes recherches de débutant. Voici où en j'en suis:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim FirstRow As Long
FirstRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
Dim x As Long
For x = FirstRow - 1 To 9 Step -1
  If Cells(x, 2) = Cells(x - 1, 2) Then
     Rows(x).EntireRow.Delete
  End If
Next x
Je pense que les connaisseurs vont hurler car ma ligne pour la FirstRow semble correct (je pars du haut du tableau et je descends horizontallement) mais la suite ne colle pas car cela vient d'un code qui remonte une liste au lieu de la descendre. Mais, je ne sais comment n'y prendre, surtout que je vois pas comment dire à Excel de procéder à l'identification des doublons sur la colonne A et de ne garder que le dernier MAIS ensuite de supprimer les lignes correspondantes.

Quelqu'un a-t-il une idée ?