Private Sub CommandButton1_Click()
Dim f As String
Dim TOTO As String
TOTO = ActiveWorkbook.Name
f = ActiveWorkbook.FullName
ChDir _
"\\u\dossier\dossier x\dossier1"
ThisWorkbook.SaveAs Filename:= _
"\\u\dossier\dossier x\dossier1\" & TOTO & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Kill f
ActiveWorkbook.Close savechanges:=False
End Sub