Bonjour
code dans Module
Sub Créer_Liste()
Range("f2:f" & [f65000].End(xlUp).Row).Select
Selection.Sort Key1:=Range("f2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("f2").Select
Range("f2:f" & [f65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("A16"), Unique:=True
Range("A16").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(, 1).Select
Selection.FormulaR1C1 = "=SUMPRODUCT((R2C1:R9C1=RC1)*(R2C2:R9C2))"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("B16").Select
End Sub
Cordialement