Sub test()
With ActiveSheet
crit = Array("Alain", "Carla", "Franck", "Pablo", "robert", "Roger")
With .Range("$A$1:$A$20")
first = .Cells(1).Text
.AutoFilter Field:=1, Criteria1:=crit, Operator:=xlFilterValues
Set plage = .SpecialCells(xlVisible)
.AutoFilter
plage.EntireRow.Hidden = True
ActiveWindow.ScrollRow = 1
.Rows(1).Hidden = InStr("," & Join(crit, ",") & ",", "," & first & ",") > 0
End With
End With
End Sub