Problème avec xldown

Voilà,
j'essai de renter des renseignements dans une base de données et normalement avec xl down je devrais avoir une nouvelle ligne à chaque fois.
Mais ça revient à chaque fois sur la méme ligne.
Quelqu'un saurait pourquoi?

Voilà le code:
Private Sub cmdBtnSave_Click()

Application.Goto Reference:="S_BL"
Selection.Copy
Application.Goto Reference:="BL"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False