Excel - Suppressions de toutes les lignes identiques

Bonjour à tous,

J'aurais besoin d'un petit coup de main !

J'ai un fichier excel contenant plusieurs centaines de lignes donc certaines sont identiques.

Je voudrais supprimer toutes les lignes identiques : si le fichier contient deux fois la même ligne, j'aimerais qu'il n'en reste aucune des deux.

J'ai essayé les tris en supprimant les doublons mais il ne supprime que le double et me laisse donc une ligne. J'ai également fais des recherches mais je ne suis pas tombé sur ma problématique.

Etant assez novice je me trouve dans une impasse.

Pourriez vous me venir en aide svp ?

J'ai joint un exemple de tableau plus synthétique ne reprenant que quelques lignes. J'ai également surligné les lignes que j'aurais aimé faire disparaître.

Bonjour,

J'ai ajouté 2 colonnes à ton fichier (en rouge). Il te suffit ensuite de faire un filtre sur la colonne doublon pour n'afficher que les lignes "doublon" puis les supprimer.

C'est juste géniale ! Je n'y aurais jamais pensé !

Merci beaucoup !

Bonsoir à tous,

Pour le fun une version en VBA. Le code est dans le module de Feuil1.

Sub expurger()
Dim T, dico, clef, i&, j&, m&, n&

n = Cells(Rows.Count, "a").End(xlUp).Row
T = Range("a1").Resize(n, 9)
Set dico = CreateObject("scripting.dictionary")
For i = 1 To UBound(T)
  clef = ""
  For j = 1 To UBound(T, 2): clef = clef & "\" & T(i, j): Next j
  If Not dico.exists(clef) Then dico(clef) = i Else dico(clef) = 0
Next i
n = 0
For Each clef In dico.keys
  If dico(clef) > 0 Then
    n = n + 1: m = Val(dico(clef))
    For j = 1 To UBound(T, 2): T(n, j) = T(m, j): Next j
  End If
Next clef
Range("a1").CurrentRegion.Clear
Range("a1").Resize(n, UBound(T, 2)) = T
Range("a1").Resize(n, UBound(T, 2)).Sort key1:=Range("a1"), key2:=Range("b1"), Header:=xlYes
End Sub