re
essaie en l'adaptant (mettre ta valeur combobox à la place de critère) + nom des feuilles
critère = 2
Worksheets('Feuil1').Range('A1').AutoFilter _
field:=1, Criteria1:=critère, VisibleDropDown:=True
Worksheets('Feuil2').Range('A1').AutoFilter _
field:=1, Criteria1:=critère, VisibleDropDown:=True
A+