Sub autofill2()
Dim rng As Range
Dim Dl1%
Dl1 = Range("A" & Rows.Count).End(xlUp).Row
Set rng = ThisWorkbook.Worksheets("RESULTAT").Range("B3:B50")
rng.Formula = "=VLOOKUP(C[-1],GASEREAL!C[-1]:C[8],5,0)-VLOOKUP(C[-1],PREV!C[-1]:C[7],5,0)"
Set rng = Nothing
End Sub