Eliminer les doublons

bonjour à toutes et à tous,

je souhaiterai savoir comment faire pour éliminer les doublons dans une liste donnée

ci joint un exemple

merci de votre aide

Bonjour

Plusieurs solutions

https://forum.excel-pratique.com/excel/suppression-de-donnees-identiques-sur-un-tableau-client-t1196.html

Cordialement

Bonjour,

essaie ce code:

Sub EliminerDoublons()
'Macro par @+Thierry - Modifiée par Dan le 07/04/08
Dim i As Integer
Dim dlg As Long
dlg = Range("A" & Rows.Count).End(xlUp).Row
With ActiveSheet
    .Range("A2:A" & dlg).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess 'trie la plage
        For i = dlg + 1 To 2 Step -1
        If .Range("a" & i) = Range("A" & i + 1) Then
        .Range("A" & i).EntireRow.Delete
        End If
        Next
End With
End Sub

Amicalement

edit Dan : oups, bonjour Amadeus ! j'avais pas rafrachi !!

Merci à Amadeus et à Dan, cela fonctionne à merveille !!