Bonjour,
Une méthode macro :
Sub Extraction()
With ActiveSheet
Application.ScreenUpdating = False
.Range("V1") = .Range("P1")
.Range("V2") = .Range("R1")
.Range("S2").ClearContents
.Range("O1:P" & .Range("O1").End(xlDown).Row).AdvancedFilter xlFilterCopy, _
.Range("V1:V2"), .Range("S2:T2")
.Range("V1:V2").ClearContents
.Range("S2:T2").ClearContents
.Range("S2") = "Résultat Compil égal à " & .Range("R1")
.Columns("S:T").AutoFit
End With
End Sub
Cette macro est TRÈS longue ta feuille n'étant pas conçue pour la méthode ! D'où 3 lignes de code pour préparer et 4 lignes pour éliminer la préparation ensuite (ou presque, j'ai négligé un ou deux éléments).
Pour lancer la macro cliquer sur Résultats.
Mais par ailleurs, mbbp a raison ! Une minute pour le calcul de la formule sur 1500 lignes c'est tout de même anormal, et tu devrais t'en inquiéter...