For Each Client In [ClientsTous].ListObject.ListColumns("Customer account").DataBodyRange
fichierXLS = Client & ".xlsx"
Range("A:A,E:K,N:Z").EntireColumn.Hidden = True
Range("Articles[#All]").SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.EntireColumn.AutoFit
ActiveSheet.Name = Client
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Chemin & fichierXLS
ActiveWorkbook.Close
Application.DisplayAlerts = True
Cells.EntireColumn.Hidden = False
Next Client