Private Sub CommandButton1_Click() 'bouton Executer
ThisWorkbook.Names.Add "CB_1", ComboBox1 'nom défini
ThisWorkbook.Names.Add "CB_2", Val(ComboBox2) 'nom défini
With [A1].CurrentRegion
.Cells(2, .Columns.Count + 2) = "=(C2=CB_1)*(B2=CB_2)" 'critère
.AdvancedFilter xlFilterInPlace, .Cells(1, .Columns.Count + 2).Resize(2) 'filtre avancé
.Cells(2, .Columns.Count + 2) = ""
.Parent.PrintPreview 'pour tester
'.Parent.PrintOut 'pour imprimer
.AdvancedFilter xlFilterInPlace, "" 'RAZ
End With
End Sub