Sub Enregistrer_double()
If InputBox("Entrez le mot de passe pour sauvegarder") = "toto" Then
ThisWorkbook.SaveCopyAs "C:\Users\djodj\Desktop\Essais\TEST 3.1\Classeur11.xlsm" 'indique le chemin de sauvegarde 1 du fichier
'indique le chemin de sauvegarde 2 du fichier recopier la ligne de dessus en indiquant le nouveau chemin
ThisWorkbook.SaveCopyAs "C:\Users\djodj\Desktop\Essais\TEST 3.0\Classeur1.xlsm"
ThisWorkbook.Save
Else
MsgBox ("MOT DE PASSE REFUSE")
End If
End Sub