Sub Test()
 Dim rng As Range
 Dim lastline As Long
 'Pour sélectionner l'onglet
 ThisWorkbook.Worksheets("Entrée").Activate
 Set rng = ActiveSheet.Range("A1").CurrentRegion
 rng.Select
 'Filtrer la sélection
 rng.AutoFilter Field:=16, Criteria1:="V"
 rng.AutoFilter Field:=18, Criteria1:="V"
 'Tester si la feuille est vide
 If Sheets("Entrée").AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
 'Copier la sélection filtrée
   lastline = Sheets("B2, Méd, Psy").Cells(Rows.Count, 1).End(xlUp).Row + 1
   Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count)
   rng.Copy Destination:=Sheets("B2, Méd, Psy").Cells(lastline, 1)
   'Supprimer les lignes
   rng.Rows.EntireRow.Delete
   'Désactiver le filtre
   ActiveSheet.ShowAllData
 Else
   'Désactiver le filtre
   ActiveSheet.ShowAllData
 End If
 
 'Pour sélectionner l'onglet
 ThisWorkbook.Worksheets("Entrée").Activate
 Set rng = ActiveSheet.Range("A1").CurrentRegion
 rng.Select
 'Filtrer la sélection
 rng.AutoFilter Field:=16, Criteria1:="NV"
 'Tester si la feuille est vide
 If Sheets("Entrée").AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
 'Copier la sélection filtrée
   lastline = Sheets("NV").Cells(Rows.Count, 1).End(xlUp).Row + 1
   Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count)
   rng.Copy Destination:=Sheets("NV").Cells(lastline, 1)
   'Supprimer les lignes
   rng.Rows.EntireRow.Delete
   'Désactiver le filtre
   ActiveSheet.ShowAllData
 Else
   'Désactiver le filtre
   ActiveSheet.ShowAllData
 End If
 
 'Pour sélectionner l'onglet
 ThisWorkbook.Worksheets("Entrée").Activate
 Set rng = ActiveSheet.Range("A1").CurrentRegion
 rng.Select
 'Filtrer la sélection
 rng.AutoFilter Field:=18, Criteria1:="NV"
 'Tester si la feuille est vide
 If Sheets("Entrée").AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
 'Copier la sélection filtrée
   lastline = Sheets("NV").Cells(Rows.Count, 1).End(xlUp).Row + 1
   Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count)
   rng.Copy Destination:=Sheets("NV").Cells(lastline, 1)
   'Supprimer les lignes
   rng.Rows.EntireRow.Delete
   'Désactiver le filtre
   ActiveSheet.ShowAllData
 Else
   'Désactiver le filtre
   ActiveSheet.ShowAllData
 End If
 
End Sub