Sub Resultat()
Dim F As Worksheet, dest As Range, nlig
Set F = ActiveSheet
Set dest = F.[R6] '1ère cellule du résultat
Application.ScreenUpdating = False
dest.Resize(Rows.Count - dest.Row + 1, 2).Clear 'RAZ
Workbooks.Add xlWBATWorksheet 'document auxiliaire
With ActiveSheet
F.[A:P].Copy .[A1] 'copier-coller
.UsedRange = .UsedRange.Value 'supprime les formules
.Rows("1:5").Delete xlUp
.UsedRange.Sort .Columns("P"), xlDescending, Header:=xlYes 'tri
nlig = Application.CountIf(.Columns("P"), ">=100") + 1
.Range("D1:D" & nlig).Copy dest 'copier-coller
.Range("P1:P" & nlig).Copy dest(1, 2) 'copier-coller
End With
ActiveWorkbook.Close False 'ferme le document auxiliaire
End Sub