Copier coller ligne fonction valeur d'une cellule

Sub doody51()
 Dim TabTemp, i As Long, j As Long, DerArt As Long, DerDevis As Integer, x As Long


 Application.ScreenUpdating = False

 DerDevis = Worksheets("A FACTURER").Range("A" & Rows.Count).End(xlUp).Row

 DerArt = Worksheets("LOCDET").Range("A" & Rows.Count).End(xlUp).Row
 TabTemp = Worksheets("LOCDET").Range("A2:J" & DerArt)
 For i = 1 To DerDevis
    For j = LBound(TabTemp) To UBound(TabTemp)
        If Worksheets("A FACTURER").Cells(i, 1) = TabTemp(j, 1) Then
            x = x + 1
            Worksheets("RECAP").Cells(x, 1).Resize(1, 10) = Application.Index(TabTemp, j)
        End If
    Next
 Next

 Application.ScreenUpdating = True

End Sub

Sub doody51()
 Dim TabTemp, TabFin(), i As Long, j As Long, DerArt As Long, DerDevis As Integer, x As Long, Devis
 Dim k

 Application.ScreenUpdating = False

 DerDevis = Worksheets("A FACTURER").Range("A" & Rows.Count).End(xlUp).Row

 DerArt = Worksheets("LOCDET").Range("A" & Rows.Count).End(xlUp).Row
 TabTemp = Worksheets("LOCDET").Range("A2:J" & DerArt)
 For i = 1 To DerDevis
    Devis = Worksheets("A FACTURER").Cells(i, 1)
    For j = LBound(TabTemp) To UBound(TabTemp)
        If Devis = TabTemp(j, 1) Then
            x = x + 1
            ReDim Preserve TabFin(1 To 10, 1 To x)
            For k = 1 To 10
                TabFin(k, x) = TabTemp(j, k)
            Next
        End If
    Next
 Next

 Worksheets("RECAP").Cells(1, 1).Resize(UBound(TabFin, 2), UBound(TabFin, 1)) = Application.Transpose(TabFin)

 Application.ScreenUpdating = True
End Sub