Créer une boucle pour analyser une plage de données

Merci beaucoup pour ta réponse, je vais essayer ca ce soir!

Bonne soiree,

KMP33

Bonjour,

une correction, je crois que j'ai mal compris "lointaine", ma compréhension initiale =date de validité la plus éloignée dans le passé, mais je pense que je devais comprendre date de validité la plus éloignée dans le futur.

Sub aargh()
    With Sheets("sheet1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To dl
            .Cells(i, "H") = i
            .Cells(i, "I") = .Cells(i, 3) & .Cells(i, 2) & .Cells(i, 4) & .Cells(i, 7)
        Next i
        .Range("A1:I" & dl).Sort key1:=.Range("I1"), order1:=xlAscending, key2:=.Range("F1"), order2:=xlDescending, Header:=xlYes
        For i = dl To 2 Step -1
            If .Cells(i, "I") = .Cells(i - 1, "i") Then .Rows(i).Delete shift:=xlUp
        Next i
         .Range("A1:I" & dl).Sort key1:=.Range("H1"), order1:=xlAscending, Header:=xlYes
         .Columns("H:I").Delete shift:=xlToLeft
    End With
End Sub

ps : je ne savais pas que brebis et chèvres se vendaient et s'achetaient sur le forex ou le money market.

Haha merci beaucoup!

On trouve de tous tu sais