[Filtre VBA]Filtrage lancement worbook

Bonjour,
Je voudrai filtrer mes données en fonction de la valeur d'une cellule... Malheureusement, mon code ne fonctionne pas...
Lorsque je remplace array(filtrage) par le contenu de filtrage, le filtre fonctionne... On dirait qu'il n'arrive pas à lire le contenu de ma cellule...

Merci

Private Sub Workbook_Open()
Dim debut_periode As Long, fin_periode As Long
Dim critére1, filtrage As String

Application.ScreenUpdating = False
filtrage = Sheets("Parametres").Range("F19").Value
    
debut_periode = Date
fin_periode = debut_periode - 6
        
Sheets("Rapport").Range("$A$1:$A$5476").AutoFilter _
Field:=1, Criteria1:="<= " & debut_periode, _
Operator:=xlAnd, Criteria2:=">=" & fin_periode
        
Sheets("STOCK").Range("$A$1:$A$367").AutoFilter _
Field:=1, Criteria1:="<= " & debut_periode, _
Operator:=xlAnd, Criteria2:=">=" & fin_periode
       
Sheets("Rapport opérateur").Range("$A$1:$A$5476").AutoFilter _
Field:=2, Criteria1:=Array(filtrage), Operator _
:=xlFilterValues
   
Call masquage_feuilles_inutiles
Call verrouillage_feuilles
End Sub