Macro qui s'exécute trop lentement

Bonjour chers tous
J'utilise une macro pour insérer une formule dans ma colonne "P".
La macro fonctionne bien mais il se trouve qu'elle est une peu lente si les lignes sont trop nombreuses.
Existe t il un moyen de l'accélérer ?
Merci.
Sub Lenteurformule()
With Sheets("Grille_de_Disp")
 .[Q11] = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("P2").FormulaArray = _
        "=MAX((R2C1:INDIRECT(""$A$""&R11C[1])=RC[-15])*(R2C2:INDIRECT(""$B$""&R11C[1])=RC[-14])*(R2C3:INDIRECT(""$C$""&R11C[1])=RC[-13])*(R2C11:INDIRECT(""$K$""&R11C[1])))"
    .Range("P2").AutoFill Destination:=.Range("P2:P" & .Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
End With
End Sub

Bonjour

Utilise un tableau structuré et une seule formule sur la 1ère du tableau suffit : la propagation est automatique

C'est probablement le temps de calcul qui plombe

Et encore un multipost

Rechercher des sujets similaires à "macro qui execute trop lentement"