Sub EnregistreSous()
MkDir Range("E7").Value ' Crée le dossier
ActiveWorkbook.SaveAs Filename:="C:\Users\Slijack\Documents\Etude de dégradation\" & _
Range("D7").Value & "\" & Range("C8").Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub