Worksheets(Masheet).Select 'selection de ma feuille
Worksheets(Masheet).Range("A2").AutoFilter Field:=9, Criteria1:="Toto" 'filtre sur le nom
Columns("A:F").Select
Selection.SpecialCells(xlCellTypeVisible).Select
If Selection.Rows.Count > 1 Then Selection.Copy
ActiveWorkbook.Sheets.Add ' ajout la new sheet
ActiveSheet.Name = "Toto" ' nom de la sheet
If Selection.Rows.Count > 1 Then
ActiveSheet.Paste 'colle..
Else
cells(1,1).value="PAS DE DATAS"
endif