Sub INDEXIIIIIII()
'
' INDEXIIIIIII Macro
Range("B26").Select
Selection.FormulaArray = _
"=INDEX(Porte!R[-25]C[12]:R[1315]C[12],MAX(IF((Résultat!RC[-1]=Porte!R[-25]C[-1]:R[1284]C[-1]),ROW(Porte!R[-25]C[12]:R[1284]C[12]),0)))"
ActiveWindow.SmallScroll Down:=12
Selection.AutoFill Destination:=Range("B26:B35"), Type:=xlFillDefault
Range("B26:B35").Select
End Sub