Bonjour à tous,
Vois ceci :
Sub test()
Dim a, b, i As Long, dico As Object
Set dico = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1").Cells(1).CurrentRegion.Resize(, 7)
a = .Value
.Columns(7).Offset(1).ClearContents
b = .Columns(7).Value
For i = 2 To UBound(a, 1)
If Not dico.exists(a(i, 2)) Then
dico(a(i, 2)) = a(i, 6)
Else
dico(a(i, 2)) = Application.Max(dico(a(i, 2)), a(i, 6))
End If
Next
For i = 2 To UBound(a, 1)
If a(i, 6) = dico(a(i, 2)) Then
b(i, 1) = "vrai"
Else
b(i, 1) = "faux"
End If
Next
.Columns(7).Value = b
End With
Set dico = Nothing
End Sub
klin89