Sub EXPORT_STATS()
Mdp = Application.InputBox("Mot de passe requis", "Entrer le mot de passe")
If Mdp <> "Toto" Then
MsgBox "Mdp incorrect", vbCritical
Exit Sub
End If
ThisWorkbook.Sheets("export").Unprotect "pass"
ThisWorkbook.Sheets("export").Range("A3:AN3").Copy
With Workbooks("stats_2013.xls").Sheets("SYNTHESE_ANNUELLE")
.unprotect "ton mdp"
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
.Paste Link:=True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True, AllowSorting:=True, Password:="admin"
End With
Application.CutCopyMode = False
ThisWorkbook.Sheets("export").Protect "pass", True, True, True
Workbooks("stats_2013.xls").Save
End Sub