Macro copier ligne dans la feuilla correspondante

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim FS As String, FB As String, li As Long, lili As Long
' nom feuille active/source
FS = ActiveSheet.Name
' nom feuille but récupéré en B3
FB = Range("B3").Value
' preniere ligne dispo feuille but
lili = Sheets(FB).Range("A" & Rows.Count).End(xlUp).Row + 1
' ligne cellule cliquée
li = Target.Row
' copie de la ligne li de la feuille source
' à la ligne lili de la feuille but
Rows(li & ":" & li).Copy
Sheets(FB).Select
Sheets(FB).Range("A" & lili).Select
Sheets(FB).Paste
' retour feuille source
Sheets(FS).Select
Sheets(FS).Range("A" & li + 1).Select
' vider presse papier
Application.CutCopyMode = False
End Sub