Bonsoir à tous,
salut cousinhub,
ou alors la macro classique
Sub FiltreDoublons()
Dim Lg&
Application.ScreenUpdating = False
Lg = Range("o" & Rows.Count).End(xlUp).Row
Range("z72") = "=o73<>0" 'critère de filtre
Range("o72:o" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("z71:z72"), CopyToRange:=Range("x72"), Unique:=True
Range("z72").ClearContents
'--- tri ---
Range("x73:x" & Lg).Sort _
Key1:=Range("x73"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Amicalement
Claude