Code VBA permettant de copier un tableau

Option Explicit
Sub relier()
Dim src As Range  'Source à comparer
Dim cmp As Range  'Élément de comparaison
Dim dst As Range  'Destination

  Set src = Worksheets("Facture").Range("A2")
  Set dst = Worksheets("Les lignes à relier").Range("A2")
  Do While src.Formula <> ""
    Set cmp = Worksheets("Avoirs").Range("A2")
    Do While cmp.Formula <> ""
      If src.Value = cmp.Value Then
        src.Resize(1, 12).Copy Destination:=dst
        Set dst = dst.Offset(1)
      End If
      Set cmp = cmp.Offset(1)
    Loop
    Set src = src.Offset(1)
  Loop
End Sub