Suppression des doublons par une boucle dans une macro

Bonjour, j'ai des fichiers excel a trier pour ma hierarchie (3 fichiers de 5000 lignes)
Je dois supprimer des doublons. Je cherches a réaliser une macro (je penses avec une boucle) pour supprimer en automatique ces doublons.
exemple:

418160 24/09/2001 00:00:00
418160 24/09/2001 00:00:00
418160 24/09/2001 00:00:00
418185 01/01/1996 00:00:00 23/09/2001 00:00:00
418185 24/09/2001 00:00:00
418196 01/01/1997 00:00:00 23/09/2001 00:00:00
418196 24/09/2001 00:00:00
418198 01/01/1996 00:00:00 23/09/2001 00:00:00
418198 24/09/2001 00:00:00

ce que je dois obtenir en final

418160 24/09/2001 00:00:00
418185 24/09/2001 00:00:00
418196 24/09/2001 00:00:00
418198 24/09/2001 00:00:00

le seul impératif est de garder le dernier nombre des doublons et supprimer toujours les doublons du dessus
et utiliser toujours la première colonne pour la macro
Avez-vous une macro a me proposer svp

merci d'avance

j'ai essayé avec cette boucle mais il me fait le contraire, il me supprime les suivantes au lieu des précedentes.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub supprimeDoublons() MaCellule = "A2" Range(MaCellule).Select ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes donnee1 = ActiveCell While ActiveCell <> "" ActiveCell.Offset(1, 0).Select If ActiveCell = donnee1 Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select donnee1 = ActiveCell Else donnee1 = ActiveCell End If Wend End Sub

bonjour,

Si j'ai bien compris ce que tu voulais faire voici la solution:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub supprimeDoublons()
    MaCellule = "A2"
    Range(MaCellule).Select
    ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
    donnee1 = ActiveCell
    While ActiveCell <> ""
        ActiveCell.Offset(1, 0).Select
        If ActiveCell = donnee1 Then
            ActiveCell.Offset(-1, 0).Select
            ActiveCell.EntireRow.Delete
            donnee1 = ActiveCell
        Else
            donnee1 = ActiveCell
        End If
    Wend
End Sub

Redis moi en cas de problème...

seba_stien

MERCI !!!

IMPECCABLE !!
Merci encore
(en fait je suis trop nul, en ayant vu la modif)