Private Sub CommandButton1_Click()
Sheets("Liste").Select
Selection.AutoFilter Field:=2, Criteria1:=ComboBox6.Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.StatusBar = ""
Selection.AutoFilter Field:=2
Unload UserImprimerActeur
Sheets("Menu").Select
End Sub
Private Sub CommandButton2_Click()
Unload UserImprimerActeur
Application.StatusBar = ""
End Sub
Private Sub UserForm_Activate()
Application.StatusBar = "Imprimer un Acteur"
DerniereComboBox6 = Worksheets("données").Range("Acteur").End(xlDown).Address
ComboBox6.RowSource = "Acteur"
ComboBox6.ListIndex = -1
Sheets("Menu").Select
End Sub