Doublons selon une cellule / conserver la ligne / supprimer la ligne

Bonjour à tous,

Dilemme du dimanche matin!

Je souhaite supprimer des doublons selon une clé unique présente dans mon tableau. Jusque là, easy!

En revanche, j'aimerais qu''il supprime le doublon qui m'arrange! En effet, une cellule évolue à chaque fois que j'importe les données, et j'aimerais qu'il conserve celle-ci...

Par ailleurs, si les données de la ligne entière n'évolue pas, j'aimerais carrément qu'il supprime les deux lignes...

Vous voyez le délire? :)

Un fichier vaut mille mots ici donc je vous joins le but de la manœuvre!

Merci pour votre aide,

fifou

Bonjour,

La bonne idée c'est de nous montrer la macro qui importe les données pour pouvoir ajouter quelques lignes pour ce faire.

Hello,

voici ma macro :

Sub AT()

' copier-coller la 1ère ligne
    Sheets("Analyse").Select
    Range("A1:AC1").Select
    Selection.Copy
    Sheets("AT").Select
    Range("A1").Select
    ActiveSheet.Paste

' Filtrer les AT de + de 35 jours
    Sheets("Analyse").Select
    Range("A1:AC1").Select
    Selection.AutoFilter
    Selection.EntireColumn.AutoFit
    Sheets("Analyse").Range("$A$1:$AC$100000").AutoFilter Field:=15, Criteria1:="AT"
    Sheets("Analyse").Range("$A$1:$AC$100000").AutoFilter Field:=18, Criteria1:=">34" _
        , Operator:=xlAnd
    Range("$R$1:$R$100000").Sort Key1:=Range("R1"), order1:=xlDescending

' copier-coller dans AT
    Sheets("Analyse").Range("A2:AC100000").Copy Sheets("AT").Cells(Rows.Count, 1).End(xlUp)(2)
    Selection.EntireColumn.AutoFit

' supprimer les lignes identiques ??

' mettre à la jour la cellule nombre de jours d'arrêt si clé unique identique sur la ligne ??

' Mise en forme
    Sheets("AT").Select
    Range("A1:AC1").Select
    Selection.AutoFilter
    Worksheets("AT").Range("A:AC").Columns.AutoFit
    Sheets("AT").Select
    Range("A1").Select

End Sub

Merci pour votre aide