Supprimer ligens avec dates postérieures

Bonjour,

Je sollicite votre aide encore une fois pour une formule que je ne parviens pas à realiser.

Il s'agit de supprimer des lignes dans un fichier qui reprends plusieurs lignes pour un contrat avec des dates de début et de fin différentes. je voudrais garder les lignes par contrat avec la date de début la moins récente.

Malheureusement je n'ai pas de grandes connaissances de VBA et souhaiterais une formule pour réaliser cette demande.

Je joins a cette demande un fichier afin de préciser ma demande.

Encore merci pour votre aide et reste à votre disposition pour tout complément d'information.

Joaquim

voici le code qu'il vous faut:

Sub SupprimerLignes()

'd'abord trier
    Columns("A:F").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A:A"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B:B"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A:F")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    'ensuite supprimer
    last_row = Range("A50000").End(xlUp).Row
    For x = last_row - 1 To 2 Step -1
        If Cells(x, 1).Value = Cells(x + 1, 1).Value Then Rows(x).Delete   
    Next x
End Sub

Testé et cela marche...

Super, grand merci, j'ai adapté le code a pour mon fichier qui contient d'autres données et cela fonctionne a merveille.

Bonne journée

Avec plaisir...