XL 2013 Déclencher une macro à partir de l'utilisation d'un filtre

Private Sub Worksheet_Calculate()
Dim i%
If Not Me.AutoFilter Is Nothing Then MsgBox "Un filtre a été créé sur la feuille"
MsgBox IIf(Me.FilterMode, "Il y a ", "Il n'y a pas ") & " des données filtrées"
MsgBox "Il y a " & Me.AutoFilter.Filters.Count & " colonnes sur lesquelles il y a un filtre"
For i = 1 To Me.AutoFilter.Filters.Count
    If Me.AutoFilter.Filters(i).On Then MsgBox "Le filtre est situé en position " & i
Next i
End Sub

Private Sub Worksheet_Calculate()
Dim i%
If AutoFilter Is Nothing Then MsgBox "Aucun filtre n'a été créé sur la feuille": Exit Sub
MsgBox IIf(FilterMode, "Il y a ", "Il n'y a pas ") & " des données filtrées"
MsgBox "Il y a " & AutoFilter.Filters.Count & " colonnes sur lesquelles il y a un filtre"
For i = 1 To Me.AutoFilter.Filters.Count
    If AutoFilter.Filters(i).On Then _
        MsgBox "La colonne " & Split(AutoFilter.Range.Columns(i).EntireColumn.Address(0, 0), ":")(1) & " est filtrée"
Next i
End Sub

Function FiltreCol(Champ As Range, TitreChamp As Range)
  Application.Volatile
  If Not ChampActif(TitreChamp) Then FiltreCol = "": Exit Function
  Set d = CreateObject("scripting.dictionary")
  d.CompareMode = vbTextCompare
  For Each c In Champ
     If Not c.EntireRow.Hidden And c.Value <> "" Then d(c.Value) = c.Value
  Next c
  a = d.items
  If IsDate(Champ(1)) Then
    If d.Count = 1 Then
       FiltreCol = TitreChamp & ":" & Format(a(0), "dd/mm/yyyy")
    Else
       mini = a(0): maxi = a(0)
       For i = LBound(a) To UBound(a)
         If a(i) < mini Then mini = a(i)
         If a(i) > maxi Then maxi = a(i)
       Next i
       FiltreCol = TitreChamp & ":" & "> " & mini & " et < " & maxi
    End If
   Else
     FiltreCol = TitreChamp & ":" & Join(a, ",")
   End If
End Function

Private Sub Worksheet_Calculate()
Dim i%, d As Object, P As Range, j&, x$
If AutoFilter Is Nothing Then MsgBox "Aucun filtre n'a été créé sur la feuille": Exit Sub
MsgBox IIf(FilterMode, "Il y a des", "Il n'y a pas de") & " données filtrées"
MsgBox "Il y a " & AutoFilter.Filters.Count & " colonnes sur lesquelles il y a un filtre"
For i = 1 To Me.AutoFilter.Filters.Count
    If AutoFilter.Filters(i).On Then
        Set d = CreateObject("Scripting.Dictionary")
        d.CompareMode = vbTextCompare 'la casse est ignorée
        Set P = AutoFilter.Range.Columns(i).Cells
        For j = 2 To P.Rows.Count
            If Not P(j).EntireRow.Hidden Then 'si la ligne n'est pas masquée
                x = P(j)
                If x = "" Then x = "<vide>"
                d(x) = ""
            End If
        Next
        MsgBox "La colonne " & Split(AutoFilter.Range.Columns(i).EntireColumn.Address(0, 0), ":")(1) & _
            " est filtrée" & IIf(d.Count, " sur " & Join(d.keys, ", "), "")
    End If
Next i
End Sub