Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Extractions").Range("A:A").ClearContents ' remise à zero de la feuille de reception du filtre elaboré
' mise en place de la valeur à filtrer
sheets("Base").range("AA2").value = textbox1.value
'filtre elabore
sheets("Base").range("A:A").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[critnom], CopyToRange:=[Extractions!A1]
' si tu veux tri du du resultat
Sheets("Extractions").Range("A:A").Sort _
Key1:=Sheets("Extractions").Range("F2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub