Sub a()
Dim source As Worksheet, desti As Worksheet
Set source = Worksheets("ESSAI"): Set desti = Worksheets("Feuil2")
With source
.Range(.[B1], .[B65536].End(xlUp)).AutoFilter 1, "PARIS"
.[_FilterDataBase].SpecialCells(12).EntireRow.Copy desti.[A1]
Application.CutCopyMode = False
.AutoFilterMode = False
End With
End Sub