serge

feuil1 est le n° de ta feuille
si tes données sont sur la feuille 2, cange Feuil1 en Feuil2

Private Sub Workbook_Open()
Feuil2.EnableAutoFilter = True
Feuil2.Protect Contents:=True, UserInterfaceOnly:=True
End Sub
Bye SERGE