Sub ChangeMdp()
Dim nomfich$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
nomfich = Dir(ThisWorkbook.Path & "\*.xls") '1er fichier du dossier
While nomfich <> ""
If nomfich <> ThisWorkbook.Name Then
Workbooks.Open ThisWorkbook.Path & "\" & nomfich, Password:="[COLOR="Red"]toto[/COLOR]"
Workbooks(nomfich).SaveAs ThisWorkbook.Path & "\" & nomfich, Password:="[COLOR="red"]tata[/COLOR]"
Workbooks(nomfich).Close
End If
nomfich = Dir 'fichier suivant du dossier
Wend
End Sub