Comment détacher des onglets en plusieurs fichiers

Merci beaucoup Jordane,
J'ai suivi ton conseil j'ai réussi à m'en sortir pour diviser mon fichier en créant :
- un dossier nommé "Fichiers à découper " où j'ai mis mon fichier excel à découper
- un dossier "Fichiers SX" où je voudrais que mes fichiers divisés soient.

Sur un autre fichier excel j'ai créer ma macro découpage avec un bouton, voici le code :

Sub Découpage()

' Découpage Macro

Dim FichierMacro
Dim FichierCible
Dim Chemin As String
Dim FichierSource As String

Application.ScreenUpdating = False

Chemin = ActiveWorkbook.Path
FichierMacro = ActiveWorkbook.Name

FichierSource = Dir(Chemin & "\Fichiers à découper\*.xls")


Workbooks.Open (Chemin & "\Fichiers à découper\" & FichierSource), UpdateLinks:=False
Workbooks(FichierMacro).Activate

Workbooks(FichierSource).Activate
Sheets("GLOBAL").Select
Application.DisplayAlerts = False
ChDir ActiveWorkbook.Path
For Each s In ActiveWorkbook.Sheets
s.Copy
ActiveWorkbook.SaveAs Filename:=s.Name
ActiveWorkbook.Close
Next s


'enregistre le fichier sous
ActiveWorkbook.CheckCompatibility = False
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\Fichiers SX\" & "" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

FichierCible = ActiveWorkbook.Name


End Sub


Cependant avec ce code, mes fichiers découpés ne vont pas dans le dossier "Fichiers SX" comme je le voudrai mais vont dans le dossier "Fichiers à découper".

Je ne sais pas ce qui cloche... Auriez-vous une idée ?

Merci par avance.

Nono