Simplification code macro

Bonjour à toutes et à tous

Afin d'alléger le temps d'exécution de ma macro, Je cherche à simplifier ce morceau de code :

'Ecran faux
Application.ScreenUpdating = False

Sheets("ENTREES FIGEES").Select

'Supprime tout contenu de la plage critère
Range("AD7:BD7").ClearContents

''''''''IMPORTANT !!!!!!!!!! Selection du mode d'accès

Range("AQ7").FormulaR1C1 = "Chgt Tps trav"


Range("AI7").FormulaR1C1 = "EDD"
Application.Run "Extraire"
Range("BN2").Copy
Sheets("Tableau T1").Range("J12").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sheets("ENTREES FIGEES").Select
Range("AI7").FormulaR1C1 = "CAC"
Application.Run "Extraire"
Range("BN2").Copy
Sheets("Tableau T1").Range("J13").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

... (et ainsi de suite sur quelques 50 grades différents...)




Cette macro consiste à extraire d'une base de données un certains nombre de personnes selon leur grade et de le retranscrire sous forme chiffré dans un tableau.

par avance merci 🙂