Sub enregistrer_sous()
ChDir "O:\DEV & Q PRODUITS\1 - DEVELOPPEMENT PRODUITS\Calculations prix\Contacts & Produits finis\2016\"
filesavename = Application.GetSaveAsFilename(fileFilter:="Classeur Excel (prenant en charge les macros) (*.xlsm), *.xlsm")
If filesavename <> False Then
ThisWorkbook.SaveAs filesavename
End If
End Sub