Supprimer doublons et garder dernière ligne

Bonjour à tous,

je cherche une macro pour éliminer les lignes dont les cellules 'E' sont des doublons, tout en gardant la dernière ligne de la liste.

Actuellement, j'ai un code qui élimine les lignes dont les cellules 'E' sont des doublons, mais qui garde la première de ces ligne, voici le code en question :

Sub SupprEdoub()

Si quelqu'un aurait une solution, merci d'avance le forum.

SAlut,

Sans voir ton fichier ce n'est pas évident, mais tu peux essayer ce code

Sub SupprEdoub_Bis()
Dim i As Integer

Application.ScreenUpdating = False

For i = 8 To 4917
    Range("AD" & i) = i
Next

Range("A8:AD4917").Sort Key1:=Range("E8"), Order1:=xlAscending, Header:=xlNo

For i = 4917 To 9 Step -1
    If Range("E" & i) = Range("E" & i - 1) Then Rows(i).Delete
Next

Range("A8:AD4917").Sort Key1:=Range("AD8"), Order1:=xlAscending, Header:=xlNo

Range("AD:AD").ClearContents

End Sub

Cordialement

Bonjour Yvouille,

merci pour ta réponse, mais ça ne fonctionne pas.

Voici un fichier avec quelques explications.

D'avance merci.

Avec un fichier, c'est toujours mieux

Voici un nouveau code, testé dans le fichier ci-joint.

Sub SupprEdoub()

Dim i As Integer, DerLig As Integer

Application.ScreenUpdating = False
DerLig = Range("E" & Rows.Count).End(xlUp).Row

For i = 7 To DerLig
    Range("AE" & i) = i
Next

Range("A7:AE" & DerLig).Sort Key1:=Range("E7"), Order1:=xlAscending, Header:=xlNo

For i = DerLig - 1 To 7 Step -1
    If Range("E" & i) = Range("E" & i + 1) Then Rows(i).Delete
Next

Range("A7:AE" & DerLig).Sort Key1:=Range("AE7"), Order1:=xlAscending, Header:=xlNo

Range("AE:AE").ClearContents

End Sub

Très bien Yvouille,

je te remercie, le test grandeur nature fonctionne correctement.

Bonne continuation