Sub Enregistrer_sous()
Dim Path As String, Nom As String
If Dir(Path & Nom) <> "" Then
MsgBox "Le fichier existe déjà !" & Chr(10) & "Vous pourrez le créer en " & Range("P9").Value, vbInformation
Else
Application.DisplayAlerts = False
Path = Range("C40").Value
Nom = Range("O9").Value & ".xlsm"
ThisWorkbook.SaveAs Path & Nom
Call Creation_Dossiers
Call RAZ_du_fichier1
ActiveWorkbook.Save
End If
End Sub