Voilà mon code :
Dim Rep As String, Nom As String
Rep = "c:\Svg\"
Nom = sPath & "Test2" & ".xls"
Worksheets("Test").Copy
ActiveWorkbook.SaveAs _
Filename:=sFileSave, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
Mais apparemment, il marche chez moi mais pas à mon stage...
Je réessaierai lundi...
Si ça ne marche pas, je posterai mon code...
Merci.
A+