Liste de pourcentage

Sub tri()
Application.Calculation = xlCalculationManual 'désactivation calcul auto
f1 = "Etat parc Divers (Fixe,...)"
f2 = "Etat parc filtré"
Sheets(f2).Range("A6:AY4000").ClearContents' effacement de la plage
Application.ScreenUpdating = False 'désactivation rafraichissement écran
x = 5
For n = 6 To Sheets(f1).Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row ' boucle de la ligne 6 à la dernière remplie en col 1
premlig = Sheets(f1).Columns(14).Find(Sheets(f1).Range("N" & n), , , , xlByColumns, xlNext).Row ' 1ere ligne comportant en N la référence en cours
derlig = Sheets(f1).Columns(14).Find(Sheets(f1).Range("N" & n), , , , xlByColumns, xlPrevious).Row' dernière ligne avec la référence en N
a = Application.WorksheetFunction.Max(Sheets(f1).Range("Q" & premlig & ":Q" & derlig))' max en Q entre ces 2 lignes
If Sheets(f1).Range("Q" & n) = a Then ' si valeur en Q de la référence courante = le max
x = x + 1' incrémentation de la ligne de recopie
Sheets(f1).Select
   Sheets(f1).Range("A" & n & ":AY" & n).Select
    Selection.Copy' copie de la ligne en cours en f1
    Sheets(f2).Select
    Sheets(f2).Range("A" & x).Select
    ActiveSheet.Paste ' colle en f2 en ligne x
End If
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub