Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$3" Then
Application.EnableEvents = False
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Marque")
.ClearAllFilters
.CurrentPage = Range("H3").Text
End With
Application.EnableEvents = True
End If
End Sub