Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Me.Hide
With Feuil2.[B6].CurrentRegion.Offset(3)
.AutoFilter
.AutoFilter 9, "*" & ComboBox1 & "*"
.Parent.PageSetup.PrintArea = .Parent.Range("B1", .Cells).Address
.Parent.PageSetup.Orientation = xlLandscape
.Parent.PageSetup.FitToPagesWide = 1
.Parent.PageSetup.FitToPagesTall = False
.Parent.PrintPreview 'aperçu pour tester
'.PrintOut 'impression
.AutoFilter
End With
Me.Show
End Sub