Sub MacroPerformanceFaceAFace()
Application.ScreenUpdating = False
With Sheets("Base").[A1].CurrentRegion
.Columns(7).Name = "ColG" 'nomme la plage
.Columns(1).Name = "ColA" 'nomme la plage
.Columns(1).Offset(1).Name = "ColAD" 'nomme la plage décalée
.Columns(5).Name = "ColE" 'nomme la plage
.Columns(5).Offset(1).Name = "ColED" 'nomme la plage décalée
End With
With Sheets("Formule")
.[B23].FormulaArray = "=INDEX(ColG,LARGE(IF(ColA=ColAD,IF(ColE&ColED=$D$1&$D$11,ROW(ColA),IF(ColE&ColED=$D$11&$D$1,ROW(ColAD)))),COLUMNS($A:A)))"
.[B23].Copy .[C23:K23]
.[B23:K23] = .[B23:K23].Value 'supprime les formules
.[B25].FormulaArray = "=INDEX(ColG,LARGE(IF(ColA=ColAD,IF(ColE&ColED=$D$11&$D$1,ROW(ColA),IF(ColE&ColED=$D$1&$D$11,ROW(ColAD)))),COLUMNS($A:A)))"
.[B25].Copy .[C25:K25]
.[B25:K25] = .[B25:K25].Value 'supprime les formules
End With
End Sub