XL 2016 VBA copier ligne dans un tableau

Sub Dupliquer()

With Sheets("Dupliquer")
    fin = .Range("A" & .Rows.Count).End(xlUp).Row + 2
End With

With ActiveSheet
    Pièce = .Range("C6")
    With Range("Tableau1")
        Set zone = .Columns(2).Find(Pièce)
        If Not zone Is Nothing Then
            Set ZoneToDupliq = zone.Offset(0, -1).Resize(2, 15)
            ZoneToDupliq.Copy Destination:=Sheets("Dupliquer").Range("B" & fin)
            Sheets("Dupliquer").Range("A" & fin).Resize(2) = Pièce
        End If
    End With
End With


End Sub

Private Sub Dupliquer_Click()

Dim ZoneToFilter As Range
With ActiveSheet
    Pièce = .Range("C6")
    finJ = .Range("B" & .Rows.Count).End(xlUp).Offset(1).Select
End With

With Sheets("Source")
    FinDup = .Range("A" & .Rows.Count).End(xlUp).Row
    Set zone = .Range("A1:A" & FinDup).Find(Pièce)
        If Not zone Is Nothing Then
            FirstAd = zone.Address
            Do
            Set ZoneToDupliq = zone.Offset(0, 1).Resize(2, 15)
            ZoneToDupliq.Copy Destination:=Sheets("Journal").Range("B" & finJ)
            finJ = finJ + 2

            Loop While Not zone Is Nothing And zone.Address <> FirstAd
        End If

End With

End Sub

Private Sub Dupliquer_Click()
   With Me.ListObjects(1)
      .ListRows.Add
      .ListRows.Add.Range.Offset(-1).Resize(2).Value _
         = Feuil6.[B2:P3].Offset(3 * Me.[C6].Value).Value
      End With
   End Sub

Private Sub Dupliquer_Click()
   Dim Rng As Range
   With Me.ListObjects(1)
      .ListRows.Add
      Set Rng = .ListRows.Add.Range.Offset(-1).Resize(2)
      End With
   Rng.Value = Feuil6.[B2:P3].Offset(3 * Me.[C6].Value).Value
   Rng(2, 1).FormulaR1C1 = "=R[-1]C"
   Rng(1, 2).FormulaR1C1 = "=R[-1]C+1"
   Rng(2, 2).FormulaR1C1 = "=R[-1]C"
   End Sub