Private Sub Workbook_Open()
With Feuil1
.ComboBox1.List = Array(2015, 2016, 2017, 2018, 2019, 2020, "Toute année")
.ComboBox2.List = Array("1er trimestre", "2ème trimestre", "3ème trimestre", "4ème trimestre", "Tout trimestre")
.Protect "TOTO", UserInterfaceOnly:=True
End With
End Sub