Private Sub Workbook_Open()
Dim mdp As String
ActiveSheet.Unprotect "mdp"
Range("??:??").Select 'Selon la disposition que tu as
Selection.AutoFilter
Selection.AutoFilter
Range("A2").Select
Feuil1.EnableAutoFilter = True
ActiveSheet.Protect "mdp", UserInterfaceOnly:=True
End Sub