Sub j()
 Dim rng As Range
 Dim lastline As Integer
 Dim i As Integer
 'Pour sélectionner toute la feuille
 Sheets("Entrée").Activate
 Set rng = ThisWorkbook.Worksheets("Entrée").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select
 'Filtrer la sélection
 ActiveSheet.Range("$A$1:$AG$4307").AutoFilter Field:=16, Criteria1:="V"
 ActiveSheet.Range("$A$1:$AG$4307").AutoFilter Field:=18, Criteria1:="V"
 'Copier la sélection filtrée
 Selection.Copy
 'Coller la sélection copiée dans une feuille spécifique
 lastline = Sheets("B2, Méd, Psy").Range("A65536").End(xlUp).Row + 1
 Sheets("B2, Méd, Psy").Select
 Sheets("B2, Méd, Psy").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
 'Désactiver le filtre
 With Sheets("Entrée")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
 'Supprimer les lignes exportées vers la feuille spécifique
 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
 'Pour sélectionner toute la feuille
 Set rng = ThisWorkbook.Worksheets("Entrée").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select
 'Filtrer la sélection
 ActiveSheet.Range("$A$1:$AG$4307").AutoFilter Field:=16, Criteria1:="NV"
 'Copier la sélection filtrée
 Selection.Copy
 'Coller la sélection copiée dans une feuille spécifique
 lastline = Sheets("NV").Range("A65536").End(xlUp).Row + 1
 Sheets("NV").Select
 Sheets("NV").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
 'Désactiver le filtre
 With Sheets("Entrée")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
 'Pour sélectionner toute la feuille
 Set rng = ThisWorkbook.Worksheets("Entrée").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select
 'Filtrer la sélection
 ActiveSheet.Range("$A$1:$AG$4307").AutoFilter Field:=18, Criteria1:="NV"
 'Copier la sélection filtrée
 Selection.Copy
 'Coller la sélection copiée dans une feuille spécifique
 lastline = Sheets("NV").Range("A65536").End(xlUp).Row + 1
 Sheets("NV").Select
 Sheets("NV").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
 'Désactiver le filtre
 With Sheets("Entrée")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
 'Supprimer les lignes exportées vers la feuille spécifique
 With ThisWorkbook.Sheets("Entrée")
  For i = .Range("P" & .Rows.Count).End(xlUp).Row To 2 Step -1
   If .Range("P" & i).Value = "NV" Or .Range("R" & i).Value = "NV" Then
    .Rows(i).Delete
   End If
  Next i
 End With
 'Pour sélectionner toute la feuille
 Sheets("B2, Méd, Psy").Activate
 Set rng = ThisWorkbook.Worksheets("B2, Méd, Psy").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select
 'Filtrer la sélection
 ActiveSheet.Range("$A$1:$AH$14").AutoFilter Field:=24, Criteria1:="V"
 ActiveSheet.Range("$A$1:$AH$14").AutoFilter Field:=25, Criteria1:="V"
 ActiveSheet.Range("$A$1:$AH$14").AutoFilter Field:=26, Criteria1:="V"
 'Copier la sélection filtrée
 Selection.Copy
 'Coller la sélection copiée dans une feuille spécifique
 lastline = Sheets("V").Range("A65536").End(xlUp).Row + 1
 Sheets("V").Select
 Sheets("V").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
 'Désactiver le filtre
 With Sheets("B2, Méd, Psy")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
 'Supprimer les lignes exportées vers la feuille spécifique
 With ThisWorkbook.Sheets("B2, Méd, Psy")
  For i = .Range("X" & .Rows.Count).End(xlUp).Row To 2 Step -1
   If .Range("X" & i).Value = "V" And .Range("Y" & i).Value = "V" And .Range("Z" & i).Value = "V" Then
    .Rows(i).Delete
   End If
  Next i
 End With
'Pour sélectionner toute la feuille
 Sheets("B2, Méd, Psy").Activate
 Set rng = ThisWorkbook.Worksheets("B2, Méd, Psy").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select
 'Filtrer la sélection
 ActiveSheet.Range("$A$1:$AH$14").AutoFilter Field:=24, Criteria1:="V"
 ActiveSheet.Range("$A$1:$AH$14").AutoFilter Field:=25, Criteria1:="V"
 ActiveSheet.Range("$A$1:$AH$14").AutoFilter Field:=26, Criteria1:="V"
 'Copier la sélection filtrée
 Selection.Copy
 'Coller la sélection copiée dans une feuille spécifique
 lastline = Sheets("V").Range("A65536").End(xlUp).Row + 1
 Sheets("V").Select
 Sheets("V").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
 'Désactiver le filtre
 With Sheets("B2, Méd, Psy")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
 'Supprimer les lignes exportées vers la feuille spécifique
 With ThisWorkbook.Sheets("B2, Méd, Psy")
  For i = .Range("X" & .Rows.Count).End(xlUp).Row To 2 Step -1
   If .Range("X" & i).Value = "V" And .Range("Y" & i).Value = "V" And .Range("Z" & i).Value = "V" Then
    .Rows(i).Delete
   End If
  Next i
 End With
'Pour sélectionner toute la feuille
 Sheets("B2, Méd, Psy").Activate
 Set rng = ThisWorkbook.Worksheets("B2, Méd, Psy").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select
 'Filtrer la sélection
 ActiveSheet.Range("$A$1:$AH$14").AutoFilter Field:=24, Criteria1:="NV"
 'Copier la sélection filtrée
 Selection.Copy
 'Coller la sélection copiée dans une feuille spécifique
 lastline = Sheets("NV").Range("A65536").End(xlUp).Row + 1
 Sheets("NV").Select
 Sheets("NV").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
 'Désactiver le filtre
 With Sheets("B2, Méd, Psy")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
'Pour sélectionner toute la feuille
 Sheets("B2, Méd, Psy").Activate
 Set rng = ThisWorkbook.Worksheets("B2, Méd, Psy").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select
 'Filtrer la sélection
 ActiveSheet.Range("$A$1:$AH$14").AutoFilter Field:=25, Criteria1:="NV"
 'Copier la sélection filtrée
 Selection.Copy
 'Coller la sélection copiée dans une feuille spécifique
 lastline = Sheets("NV").Range("A65536").End(xlUp).Row + 1
 Sheets("NV").Select
 Sheets("NV").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
 'Désactiver le filtre
 With Sheets("B2, Méd, Psy")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
'Pour sélectionner toute la feuille
 Sheets("B2, Méd, Psy").Activate
 Set rng = ThisWorkbook.Worksheets("B2, Méd, Psy").Range("A2").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select
 'Filtrer la sélection
 ActiveSheet.Range("$A$1:$AH$14").AutoFilter Field:=26, Criteria1:="NV"
 'Copier la sélection filtrée
 Selection.Copy
 'Coller la sélection copiée dans une feuille spécifique
 lastline = Sheets("NV").Range("A65536").End(xlUp).Row + 1
 Sheets("NV").Select
 Sheets("NV").Cells(lastline, 1).EntireRow.Select
 ActiveSheet.Paste
 'Désactiver le filtre
 With Sheets("B2, Méd, Psy")
    .Select
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
 'Supprimer les lignes exportées vers la feuille spécifique
 With ThisWorkbook.Sheets("B2, Méd, Psy")
  For i = .Range("X" & .Rows.Count).End(xlUp).Row To 2 Step -1
   If .Range("X" & i).Value = "NV" Or .Range("Y" & i).Value = "NV" Or .Range("Z" & i).Value = "NV" Then
    .Rows(i).Delete
   End If
  Next i
 End With
End Sub