Sub CreeClasseurs()
Application.DisplayAlerts = False
[A4:AE4000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[AH4], Unique:=True
For Each c In Range("AH5", Range("AH65000").End(xlUp))
Range("AH5") = c
Sheets.Add
Sheets("Feuil1").[A4:AE4000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Feuil1").[AH4:AH5], CopyToRange:=[A1], Unique:=False
ActiveSheet.Copy
ActiveSheet.Name = c
ActiveWorkbook.SaveAs Filename:="S:\Achats\COMMUN\Tableau de suivi\Production Status\" & "Production status " & c & " " & Format(Date, "d-mm-yy")
Columns("A:AE").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AE$1000"), , xlYes).Name = _
"Tableau1"
Range("Tableau1[#All]").Select
ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleMedium18"
If Not ActiveSheet.AutoFilterMode Then ActiveSheet.[A1].AutoFilter
ActiveWorkbook.Close
ActiveSheet.Delete
Sheets("Feuil1").Select
Next c
End Sub