Private Sub Worksheet_Change(ByVal Target As Range)
Select Case [D19]
Case "II-Liste complète": [A20:A120].AutoFilter 1, "*" 'filtre automatique
Case "II-Liste des admis(es)": [A20:A120].AutoFilter 1, "Admis"
Case "Liste des échoué(es)": [A20:A120].AutoFilter 1, "Echoué"
Case Else: [A20:A120].AutoFilter 1, "zzz"
End Select
End Sub