Sub Extraction_PickUp()
Dim f As Worksheet
Set f = Sheets("résultat souhaité")
f.[b2].CurrentRegion.Offset(1).Clear
With Sheets("MRT")
.[d5].AutoFilter Field:=8, Criteria1:=">4"
.[d5].CurrentRegion.Offset(1).Copy
With f.[b3]
.PasteSpecial xlPasteFormats
.PasteSpecial xlValues
End With
.[d5].AutoFilter
End With
With f.Sort
.SortFields.Add Key:=f.[i3], SortOn:=xlSortOnValues, Order:=xlDescending
.Header = xlNo
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub