Dissocier un Fichier

bonjour

j'ai un fichier qui compte une 100 aines de feuilles

j'aimerais savoir s'il y a moyen de dissocier le fichier en plusieurs fichiers ( le nombre de feuilles) et de les nommer comme le nom de l'onglet

merci d'avance

Bonjour

Un début de piste ?

Option Explicit

Sub Test()
Dim I As Integer
Dim Chemin As String

  Chemin = ThisWorkbook.Path & "\"
  For I = 1 To Sheets.Count
    Sheets(I).Copy
    With ActiveWorkbook
      .SaveAs Chemin & ThisWorkbook.Sheets(I).Name
      .Close
    End With
  Next I
End Sub

c'est super

merci BANZAI