Sub Filtrer()
Dim Plage
Application.ScreenUpdating = False
Plage = "$A$1:$A$" & Range("A65500").End(xlUp).Row
Range("A1").AutoFilter
ActiveSheet.Range(Plage).AutoFilter Field:=1, Criteria1:=Array( _
"Cécile", "Delphine", "Eric", "Jacky", "Jean", "Mathilde"), Operator:= _
xlFilterValues
End Sub