Sub test()
Dim RngSrc As Range
Set RngSrc = Intersect(Feuil1.[2:1000000], Feuil1.UsedRange)
Intersect(Feuil2.[I2:I100000], Feuil2.UsedRange).ClearContents
Feuil2.[I2].Resize(RngSrc.Rows.Count).FormulaR1C1 = "=" _
& RngSrc(0, 1).Address(False, True, xlR1C1, True) & "-" _
& RngSrc(0, 4).Address(False, True, xlR1C1, True)
End Sub