Bonjour à tous,
Voici le code :
Sub CreeClasseurs()
Dim Chemin$
Application.DisplayAlerts = False
Application.ScreenUpdating = False
On Error Resume Next
[A1:z10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[ab1], Unique:=True
For Each C In Range("ab2"...