XL 2016 VBA - Restoration filtres sur tableau structuré quand TypeOf Criteria1 Is Object

Case Else
                        '.Range.AutoFilter Field:=j, Criteria1:=TabFiltres(j).Criteria1, Operator:=TabFiltres(j).Operator
                End Select

'Ajouter Outils / References / Typelib Information (VSTLBINF.DLL)
'si non trouvé -> http://www.telecharger-dll.fr/dll-vstlbinf.dll.html

Sub DumpProperties(ByVal Obj As Object)
    Dim i As Long
    Dim t As TLI.TLIApplication
    Dim ti As TLI.TypeInfo
    Dim mi As TLI.MemberInfo
 
    Set t = New TLI.TLIApplication
    Set ti = t.InterfaceInfoFromObject(Obj)
 
    For Each mi In ti.Members
        i = i + 1
        ActiveCell.Offset(i, 0).Value = mi.Name
        ActiveCell.Offset(i, 1).Value = mi.ReturnType
        'MsgBox mi.Name
    Next
End Sub

 'https://docs.microsoft.com/fr-fr/office/vba/api/excel.xlautofilteroperator
                    Select Case .Operator
                        Case 1, 2
                            TabFiltres(j).Criteria2 = .Criteria2
                        Case Else
                            'Pas de Criteria2
                    End Select

Sub Test()
   MsgBox TypeName(RGB(186, 186, 186))
   End Sub

Case Else    ' These are not correctly restored; there's someting in Criteria1 but can't save it.
    FilterCache(ii, 2) = .Operator
    ' FilterCache(ii, 1) = .Criteria1   ' <-- Generates an error

Case Else    ' These are not correctly restored; there's someting in Criteria1 but can't save it.
    FilterCache(ii, 2) = .Operator
    Set FilterCache(ii, 1) = .Criteria1   ' <-- Generates no error at this stage

Criteria1:= FilterCache(ii, 1)

 ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:= _
        RGB(255, 255, 0), Operator:=xlFilterCellColor