Re
Essayez comme ceci
Sub Macro3()
Dim feuille As Worksheet
Dim Chemin As String
Dim dlg As Integer
Chemin = "C:\Users\" & VBA.Environ("UserName") & "\Desktop\ARCM 2015 "
For Each feuille In ThisWorkbook.Sheets
dlg = feuille.Range("B" & feuille.Rows.Count).End(xlUp).Row
With feuille
Select Case .Name
Case Is = "CAAR", "AXA", "GAM", "CAAT", "SAA", "2A", "CASH", "ALLIANCE", "TRUST", "CNMA"
.Copy
.Range("B10:J" & dlg).Copy
With ActiveWorkbook
.ActiveSheet.Range("B10").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
'ActiveSheet.Name = Replace(ActiveSheet.Name, ".", "")
.SaveAs Filename:=Chemin & feuille.Name & ".xlsX"
.Close
End With
End Select
End With
Next
End Sub
Cordialement