Me.WindowsMediaPlayer1.Visible = False
With Feuil2
.[TYPE_PLATS].Sort .[A2], xlAscending
ComboBox1.List = .[TYPE_PLATS].Value
Textbox1.List = .[NBRE_PERSONNES].Value
Textbox2.List = .[NIVEAU_DIFFICULTE].Value
Textbox3.List = .[COUT].Value
Textbox4.List = .[TEMPS].Value
Textbox5.List = .[TEMPS].Value
.[VIN].Sort .[F2], xlAscending
Textbox9.List = .[VIN].Value
End With