bon voici du code puisque tu en veux
Sub filltre()
Application.ScreenUpdating = False
derc = Range('a1').End(xlToRight).Address(0, 0)
Range('A1:' & derc).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:='Cuisine'
der = Cells(Range('a65536').End(xlUp).Row, Range('iv1').End(xlToLeft).Column).Address(0, 0)
Range('a2:' & der).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
ActiveSheet.Select
Sheets.Add
Range('a1').Select
ActiveSheet.Paste
ActiveSheet.Name = Range('a1').Value
Sheets(1).Select
'attention, mettre le nom de la feuille qui contient les données à la base ex: sheets('données') au lieu de sheets(1)
Application.ScreenUpdating = True
Et la tu copies colles le code présent entre les deux application.screenupdating et tu changes SEULEMENT le nom du critères en l'occurrence 'Cuisine'
end sub
Voila j'espère que cela t'aidera