Public Sub FilterPivotTable()
Sheets("Data Suivi Lignes 2015 par mois").Activate
With ActiveSheet
'.PivotTables("TCD").PivotFields("esc").ClearAllFilters
If WorksheetFunction.CountIf(Worksheets("Raw data").Range("C:C"), Range("AirportCode").Value) > 0 Then
.PivotTables("TCD").PivotFields("Esc").CurrentPage = Range("AirportCode").Value
End If
End With
End Sub