[COLOR="DarkSlateGray"][B]Sub tata()
Application.ScreenUpdating = False
With Sheets("Feuil2")
.Activate
.Range(.[A1], .[A1].SpecialCells(xlLastCell)).ClearContents
End With
With Sheets("Feuil1").[A1]
Range(.Cells, .SpecialCells(xlLastCell)).Resize(1).AutoFilter
.AutoFilter Field:=3, Criteria1:="Y"
Range(.Cells, .SpecialCells(xlLastCell)).Copy Destination:=Sheets("Feuil2").[A1]
.AutoFilter Field:=3
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub[/B][/COLOR]