Autofilter et textbox

Bonjour,

J'arrive à faire fonctionner la ligne de code suivante :

ActiveSheet.Range("$A$3:$M$252").AutoFilter Field:=7, Criteria1:="=*R407C*", Operator:=xlAnd

Mon objectif est de remplacer R407C par la variable refrigerant que je lis dans une textbox comme ci-dessous :

Dim refrigerant as string
refrigerant = textbox1.text

donc j'ai modifié la première ligne comme ceci :

ActiveSheet.Range("$A$3:$M$252").AutoFilter Field:=7, Criteria1:="=*refrigerant*", Operator:=xlAnd

mais ca ne marche pas il prend pas la valeur de la variable mais trie la colonne avec le mot refrigerant au lieu refrigerant = R407C par exemple !!
Est ce que quelqu'un peut m'aider ?