Sub Scinder_Base()
Dim Feuil As Worksheet, Cellule As Range
Application.ScreenUpdating = False
For Each Feuil In Sheets
If Feuil.Name <> "Mouvements" And Feuil.Name <> "BdD" Then 'Feuil.Delete
Application.DisplayAlerts = False
Feuil.Delete
Application.DisplayAlerts = True
End If
Next
'CREATION DES FEUILLES AUTOMATIQUE
Sheets("BdD").Select
For Each Cellule In Range("A2", Range("A1000").End(xlDown))
If Cellule.Value <> "" Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Cellule.Value
ActiveSheet.Range("K1:K2").Value = Application.Transpose(Array("Produits", ActiveSheet.Name))
Sheets("Mouvements").Range("B3:P2000").AdvancedFilter Action:=xlFilterCopy, criteriarange:=ActiveSheet.Range("K1:K2"), copytorange:=ActiveSheet.Range("B4")
ActiveSheet.Columns("B:I").ColumnWidth = 15.43
ActiveSheet.Rows(4).AutoFit
'POUR REACTIVER LES FILTRES
Sheets("Mouvements").Range("G9").AutoFilter
End If
Next Cellule
End Sub