Sub Extrait()
Set f = Sheets("fournisseursliste")
Application.DisplayAlerts = False
Application.ScreenUpdating = False
f.[L1] = f.[C1] ' colonne critère (adapter)
Nlig = f.[A1].CurrentRegion.Rows.Count
Ncol = f.[A1].CurrentRegion.Columns.Count
'--- Liste des ID
f.[A1].Resize(Nlig, Ncol).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=f.[L1], Unique:=True
For Each c In f.Range("L2:L" & f.[L65000].End(xlUp).Row) ' pour chaque service
f.[L2] = c.Value
On Error Resume Next
Sheets(CStr(c.Value)).Delete
On Error GoTo 0
Sheets.Add After:=Sheets(Sheets.Count) ' création
nom = Replace(Left(c.Value, 10), ":", "_")
ActiveSheet.Name = nom
'-- extraction
f.[A1].Resize(Nlig, Ncol).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f.[L1:L2], CopyToRange:=[A1]
Next c
f.Select
End Sub