Bonjour,

Je souhaite supprimer automatiqument quelques lignes d'un tableau Excel.
J'ai 2 solutions en tête mais je n'arrive pas à les tester.

1/ Trier le tableau par ordre décroissant en fonction de la date le tableau et ensuite supprimer les lignes en doubles.
Je sais faire la suppression dans ce cas, mais je ne sais pas faire le tri décroissant.

2/ Garder le tableau tel qu'il est, et supprimer les lignes en doubles mais garder la première lignes.
Je ne sais pas faire la comparaison d'une ligne n avec la ligne n-1 et supprimer la ligne n et faire la comparaison sur 2000 lignes...

Ci joint le bout de programme que j'ai fait : pas de tri, comparaison de la ligne n avec la ligne n+1 et supprssion de la ligne n.

' Supprimer les doublons
Set currentsyst_eqt = Worksheets("Models").Range("F6")
Set currentstandard = Worksheets("Models").Range("I6")

Do While Not IsEmpty(currentsyst_eqt)
    Set nextsyst_eqt = currentsyst_eqt.Offset(1, 0)
    Set nextstandard = currentstandard.Offset(1, 0)
    
    If (nextsyst_eqt.Value = currentsyst_eqt.Value) Then
        If (nextstandard.Value = currentstandard.Value)  Then
            currentsyst_eqt.EntireRow.Delete
        Else
        End If
    Else
    End If

    Set currentsyst_eqt = nextsyst_eqt
    Set currentstandard = nextstandard
Loop