Suppression lignes ayant même description excepté la dernière

Bonjour à tous,

j'ai un tableau excel avec des compteurs leurs descriptions (colonne A) et différentes caractéristiques (autres colonnes ) et trois d'entre eux sont présents sur plusieurs lignes ( SVB800-01, SVB800-02, SVB800-03 ) et j'aimerai supprimer tout les compteurs de même description en ne conservant que le dernier apparaissant dans l'ordre des lignes.

Je suis débutant en VBA.

Par avance merci,

Paul

Bonjour,

Essaie avec ce code (qui ne supprime que les lignes comprenant un des compteurs nommés)

J'ai aussi supposé que la ligne 1 contenait un titre, et que le tableau commençait à la ligne 2

Sub suppr_doublons()
Dim DerLig As Long, I As Long
Dim LesCompteurs
DerLig = Cells(Rows.Count, "A").End(xlUp).Row
LesCompteurs = Array("SVB800-01", "SVB800-02", "SVB800-03")
For I = DerLig To 2 Step -1
    If Not IsError(Application.Match(Cells(I, 1), LesCompteurs, 0)) Then
        If Application.CountIf(Range(Cells(I, 1), Cells(DerLig, 1)), Cells(I, 1)) > 1 Then Rows(I).Delete
    End If
Next I
End Sub

Merci beaucoup ça marche très bien !

Bonne fin d'après-midi à toi

Paul