Bonjour,
Comme tu utilises un contrôle ActiveX "ComboBox", ce dernier génère des événements donc, il te faut les utiliser comme l'événement "Change()". Colles le code ci-dessous dans la module de la feuille "Sommaire" et testes (tu peux virer la liaison avec la cellule A1).
Par contre, beaucoup trop de "trous" dans tes feuilles et surtout, beaucoup trop de cellules fusionnées qui très souvent donnent des résultats inattendus (les trous et fusions) mais bon, c'est toi qui vois:
Private Sub ComboBox1_Change()
Dim Fe As Worksheet
Dim Plage As Range
On Error Resume Next
For Each Fe In Worksheets
If Fe.Name <> "Sommaire" Then
With Fe
Set Plage = .Range(.Cells(4, 3), .Cells(.Rows.Count, 3).End(xlUp))
Plage.AutoFilter 1, ComboBox1.Text
End With
End If
If ComboBox1.Text = "Tableau" Then Plage.AutoFilter
Next
End Sub