Problème Derlign avec Vlookup dans macro

Dim Derlign&
Derlign= [A65536].End(xlUp).Row
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],RC[-4]:R[" & Derlign & "]C[-3],9,0)"

Sub Macro2()
Dim Dl&, s As Worksheet, f As WorksheetFunction
Set s = ActiveSheet: Set f = Application.WorksheetFunction
s.[A1:A10].Formula = "=""a""&ROW()"
s.[B1:B10].Formula = "=ROW()"
s.[D1] = "a3"
Dl = s.[A65536].End(xlUp).Row
s.[E1].FormulaR1C1 = "=VLOOKUP(RC[-1],RC[-4]:R[" & Dl & "]C[-3],2,0)"
s.[F1] = f.VLookup(s.[D1], s.Range("A1:B" & Dl), 2, 0)
End Sub