Macro couper / coller en bas

Sub Transfert()
Dim reponse
Dim iLI As Integer
Dim iRE As Integer
Dim LI As Worksheet
Dim re As Worksheet
Dim elm As Range
    Application.ScreenUpdating = False
    reponse = MsgBox("Voulez-vous transférer les retours soldés ?", vbYesNo, "Transfert")
    If reponse = vbYes Then
        Set LI = Worksheets("Data")
        Set re = Worksheets("BDD")
        For Each elm In LI.UsedRange.Columns(40).Cells
            If elm.Text = "Terminé!" Then
                LI.Rows(elm.Row).Copy re.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
        Next elm
    End If
    Application.ScreenUpdating = True
End Sub

Sub Transfert()
Dim reponse
Dim iLI As Long
Dim iRE As Long
Dim col As Long
Dim tLI(), tRE()
    Application.ScreenUpdating = False
    reponse = MsgBox("Voulez-vous transférer les retours soldés ?", vbYesNo, "Transfert")
    If reponse = vbYes Then
        tLI = Worksheets("Data").UsedRange.Cells.Value
        ReDim tRE(1 To UBound(tLI), 1 To UBound(tLI, 2))
        iRE = 1
        For iLI = 1 To UBound(tLI)
            If tLI(iLI, 40) = "Terminé!" Then
                For col = 1 To UBound(tLI, 2)
                    tRE(iRE, col) = tLI(iLI, col)
                Next col
                iRE = iRE + 1
            End If
        Next iLI
        With Worksheets("BDD")
            iLI = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(UBound(tLI), UBound(tLI, 2)).Value = tRE
        End With
        With Worksheets("Data")
            For iLI = UBound(tLI) To 1 Step -1
                If tLI(iLI, 40) = "Terminé!" Then .Rows(iLI).Delete
            Next iLI
        End With
    End If
    Application.ScreenUpdating = True
    MsgBox iRE - 1 & " lignes transférées"
End Sub

Sub Transfert()
Dim iLI As Integer
Dim NmbLig As Integer
Dim Lig As Integer
Dim Reponse As String

Reponse = MsgBox("Voulez-vous transférer les retours soldés ?", vbYesNo, "Transfert")
With Application
   .ScreenUpdating = False
   .EnableEvents = False
   .Calculation = xlManual
End With
   If Reponse = vbYes Then
       With Feuil2
'       With Worksheets("BDD")
          NmbLig = Cells(Rows.Count, 1).End(xlUp).Row
          Lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
          For iLI = NmbLig To 7 Step -1
             If Cells(iLI, 40).Text = "Terminé!" Then
                 Rows(iLI).Copy
                  .Cells(Lig, 1).PasteSpecial xlPasteValues
                 Rows(iLI).Delete
                 Lig = Lig + 1
             End If
         Next
      End With
   End If
With Application
   .CutCopyMode = False
   .ScreenUpdating = True
   .EnableEvents = True
   .Calculation = xlAutomatic
End With
MsgBox "Transfert Terminé"
End Sub