Selection.AutoFilter avec variable

Sub Rubrique_Eng()
'

Dim Rubrique As String
Rubrique = InputBox("Entrer un mot pour afficher les rubriques")
Range("B5").Select
' Le critère est "Contient" pour la variable "Rubrique"
' Le problème c'est qu'il utilise "Rubrique" comme un mot écrit et non une variable ?????
Selection.AutoFilter Field:=1, Criteria1:="=* Rubrique *", Operator:=xlAnd
Range("B5").Select
End Sub