sauvegarde du critère de filtrage d’une colonne

If not c is nothing then Criteria1 = C

Sub SupprimerEtRemettreFiltre()
'Dim TABFILTRE()
'Application.StatusBar = "Stockage des critères de filtrage..."
Set W = Worksheets("DONNÉES")
With W.AutoFilter
    ZONEFILTRE = .Range.Address
    With .Filters
        ReDim TABFILTRE(1 To .Count, 1 To 3)
        For F = 1 To .Count
            With .Item(F)
                If .On Then
                    TABFILTRE(F, 1) = .Criteria1
                    If .Operator Then
                        TABFILTRE(F, 2) = .Operator
                        TABFILTRE(F, 3) = .Criteria2
                    End If
                End If
            End With
        Next
    End With
    For i = 1 To .Filters.Count
        If Not TABFILTRE(i, 1) = "" Then .Range.AutoFilter FIELD:=i
    Next
End With
Application.StatusBar = "Critères de filtrage stockés...Filtres enlevés..."

'Ici  tu mets le code que tu veux

'Application.StatusBar = "Rétablissement des filtres..."
For Col = 1 To UBound(TABFILTRE(), 1)
    If Not IsEmpty(TABFILTRE(Col, 1)) Then
        If TABFILTRE(Col, 2) Then
            W.Range(CURRENFILTRANGE).AutoFilter FIELD:=Col, _
                Criteria1:=TABFILTRE(Col, 1), Operator:=TABFILTRE(Col, 2), _
                Criteria2:=TABFILTRE(Col, 3)
        Else
            W.Range(ZONEFILTRE).AutoFilter FIELD:=Col, _
                Criteria1:=TABFILTRE(Col, 1)
        End If
    End If
Next
Application.StatusBar = "Critères de filtrage rétablis..."
End Sub