Extraire les titres des filtres automatiques VBA

Function AutoFilter_Criteria(Header As Range) As String
Dim strCri1$, strCri2$
Application.Volatile
    With Header.Parent.AutoFilter
        With .Filters(Header.Column - .Range.Column + 1)
            If Not .On Then Exit Function
                strCri1 = .Criteria1
            If .Operator = xlAnd Then
                strCri2 = " AND " & .Criteria2
            ElseIf .Operator = xlOr Then
                strCri2 = " OR " & .Criteria2
            End If
        End With
    End With
AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2
End Function