Sub test()
 Dim rng As Range
 Dim lastline As Integer
 Dim i As Integer
 'Filtrer la feuille
 With Worksheets("Entrée").Range("A1")
 .AutoFilter field:=16, Criteria1:="V"
 .AutoFilter field:=18, Criteria1:="V"
 End With
 'Tester si la feuille est vide
 If Sheets("Entrée").AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
 'Pour sélectionner la feuille filtrée
   Set rng = ThisWorkbook.Worksheets("Entrée").Range("A2").CurrentRegion
   With rng
    Set rng = .Offset(1).Resize(.Rows.Count - 1)
   End With
   rng.Select
 'Copier la sélection filtrée
   Selection.Copy
 'Sélectionner la première ligne vide d'une feuille sélectionner
  ***************************A FAIRE*****************************
 'Coller la sélection copiée.
  ****************************A FAIRE**************************** 
 'Désactiver le filtre
   With Sheets("Entrée")
     .Select
     If .AutoFilterMode = True Then .AutoFilterMode = False
   End With
 'Supprimer les lignes exportées dans la feuille source
   With ThisWorkbook.Sheets("Entrée")
    For i = .Range("P" & .Rows.Count).End(xlUp).Row To 2 Step -1
     If .Range("P" & i).Value = "V" And .Range("R" & i).Value = "V" Then
      .Rows(i).Delete
     End If
    Next i
   End With
 Else
'Désactiver le filtre
   With Sheets("Entrée")
     .Select
     If .AutoFilterMode = True Then .AutoFilterMode = False
   End With
 End If
End Sub