Bonjour j'avais ceci que je me servais déjà et qui sauvegarde la feuil seule:
Sub Macro1()
Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="*Entrez le Nom du nouveaux classeur*")
If Nom_Fichier = "Faux" Then Exit Sub
If Nom_Fichier = "" Then
MsgBox "Entrer un nom"
GoTo Debut
Else
'ici le nom de ta feuill a sauvegardée
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
'ici ton chemin
"C:\...ton chemin\" & Nom_Fichier & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End If
End Sub
A++
Temjeh