Sub SauveAvecPassword()
Dim Chemin$, Nom$, MotDePasse$
NomFichier = "Etpisculrien.xlsm" ' A modifier
MotDePasse = "1234" ' A modifier
Chemin = ThisWorkbook.Path & "\" ' A modifier si différent du dossier courant, doit se treminer par "\"
ActiveWorkbook.SaveAs Filename:=Chemin & NomFichier, Password:=MotDePasse
End Sub