Macro recopie de la formule jusqu'à cellule non vide

Bonjour à tous,

J'ai crée cette macro mais je ne comprends pas pourquoi la formule ne va pas jusqu'en bas de ma dernière cellule (équivalent de cliquer sur la cellule pour recopie automatique jusqu'en bas)

Sub Concatener()
Dim DerLig As Long
Worksheets("STOCK").Select
Columns("D").Select
Selection.Insert Shift:=xlToRight
Selection.ClearFormats
With Worksheets("STOCK")
DerLig = .Range("D65536").End(xlUp).Row
.Range("D1" & DerLig).FormulaR1C1 = "=CONCATENATE(RC[-3],"" "",RC[-2],"" "",RC[-1])"
End With
End Sub

Quelqu'un pour m'aider à prendre du recul svp ?