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