Option Explicit
Private Sub Worksheet_Activate()
Dim F1 As Worksheet, RgBCA As Range, RgBL1 As Range, RgRéc As Range
Set F1 = ThisWorkbook.Worksheets(1)
Set RgBCA = Application.Range(F1.Cells(2, 1), F1.Cells(65536, 1).End(xlUp))
Set RgBL1 = Application.Range(F1.Cells(1, 2), F1.Cells(1, 2).End(xlToRight))
Set RgRéc = Application.Range(Me.[A2], Me.[A65000].End(xlUp)).Offset(, 1)
RgRéc.FormulaR1C1 = "=INDEX(" & Intersect(RgBL1.EntireColumn, RgBCA.EntireRow).Address(True, True, xlR1C1, True) _
& ",MATCH(RC1+200000," & RgBCA.Address(True, True, xlR1C1, True) & ",0),MATCH(R1C," _
& RgBL1.Address(True, True, xlR1C1, True) & ",0))"
RgRéc.Value = RgRéc.Value
End Sub