Macro pour supprimer les doublons d'une liste

Bonjour à tous,

Je souhaite supprimer les doublons d'une liste de 500 marques de voiture mais d'après mon code ci-joint, certaines marques se suppriment entièrement.

Pourrez-vous m'aider ?

Bonne journée

Cordialement

Aubin V

Bonjour,

J'obtiens le meme resultat avec ta macro qu'avec la fonction Unique() de Office365.

La seule remarque c'est que j'ai du supprimer les liaisons et que les cellules A159 et A355 de feuil1 contenait #VALEUR et provoquait une erreur.

Ces deux cellules supprimées, la macro fonctionne correctement.

Cdlt

Bonjour,

Je vous remercie pour votre réponse,

Cependant auriez vous un code pour supprimer le #VALEUR! dans une case ?

Cordialement

Rebonjour,

tu rajoutes ce code

For Each c In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row + 1)
    If IsError(c) Then c.Value = c.Offset(-1, 0)
    Next

devant

Range("A2").Sort Range("A2"), xlAscending, Header:=xlYes

ca remplacera #VALEUR par la marque de la voiture du dessus, mais comme tu vires les doublons......

@ +

Super, mon code fonctionne je vous remercie

Bonne journée.

PS : Je transmettrai un nouveau problème dans la soirée

bonjour, une possibilité avec un "advanced filter"

Sub Macro1()
     Columns("B").ClearContents
     Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
     With Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
          On Error Resume Next
          .SpecialCells(xlConstants, xlErrors).Delete
          On Error GoTo 0
          .Sort Range("B1"), Header:=xlYes
     End With   
End Sub