Private Sub CommandButton1_Click()
Dim c$, ws As Worksheet: Set ws = Sheets("Documentations")
c = "*" & TextBox1 & "*"
ws.[Q1].Value="Titre"
ws.[Q2].Value = c
ws.Range("A1:N91").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=ws.Range("Q1:Q2"), _
CopyToRange:=Sheets("Feuil1").Range("A1:N1"), Unique:=False
Me.Hide
End Sub