Sub Sauvegarde()
On Error GoTo Fin
Dim Chemin, Nom, Wb
Wb = ThisWorkbook.Name
Nom = Split(ThisWorkbook.Name, ".")
Chemin = CurDir & "\" & Nom(0) & "_sos." & Nom(1)
Workbooks(Wb).SaveCopyAs Chemin
MsgBox "Copie effectuée en : " & Chr(10) & Chemin
Fin:
End Sub