Sub Eclater_Classeur()
Dim Nom_Fichier As String
Dim F As Worksheet
Application.ScreenUpdating = False
For Each F In ThisWorkbook.Worksheets
'ici remplacer le nom avec le nom du répertoire adéquat
Nom_Fichier = Sheets("Para").Range("A1").Value & "-" & F.Name
'ici équivalent collage spécial Valeurs
F.UsedRange.Value = F.UsedRange.Value
F.Copy
ActiveWorkbook.SaveAs (Nom_Fichier)
ActiveWindow.Close
Next F
Application.ScreenUpdating = False
End Sub