Filtre suivant une cellule dans un autre onglet

Sheets("Feuil2").Range("A1").AutoFilter Field:=3, Criteria1:=Sheets("Feuil1").Range("A1").Value

Public Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim CEL As Range 'déclare la variable CEL (CELlule)

Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
DL = O.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 2 (=B) de l'onglet O
Set PL = O.Range("B2:B" & DL) 'définit la plage PL
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
    D(CEL.Value) = "" 'alimente le dictionnaire D
Next CEL 'prochaine cellule de la boucle
'si C2 n'est pas vide, efface les annciennes données (l'ancienne liste)
If Range("C2").Value <> "" Then O.Range("C2:C" & O.Cells(Application.Rows.Count, 3).End(xlUp).Row).ClearContents
'renvoie dans la colonne C (à partir de C2) la liste du dictionnaire D sans doublons (=D.Keys)
O.Range("C2").Resize(D.Count) = Application.Transpose(D.keys)
End Sub

With Sheets("constantes") 'prend en compte l'onglet "constantes"
    'si C2 n'est pas vide, efface les annciennes données (l'ancienne liste)
    If .Range("C2").Value <> "" Then .Range("C2:C" & .Cells(Application.Rows.Count, 3).End(xlUp).Row).ClearContents
    'renvoie dans la colonne C (à partir de C2) la liste du dictionnaire D sans doublons (=D.Keys)
    .Range("C2").Resize(D.Count) = Application.Transpose(D.keys)
End With 'fin de la prise en compte de l'onglet "constantes"