' Crée les copies d'onglets avec noms différents
Dim c As Range
Dim k As Range
Dim Feuil1 As Sheets
For Each c In Sheets("Sheet1").Range("K2:K100")
If Not IsEmpty(c) Then Sheets("Feuil1").Select
Sheets("Feuil1").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = c.Value
For Each k In Sheets("Sheet1").Range("N2:N100")
If Not IsEmpty(k) Then
If ActiveSheet.Name Like "*TRIGONOX*" Then
ActiveSheet.Range("A:G").AutoFilter Field:=2, Criteria1:=k.Value
Else
End If
Else
End If
Next k
Next c