Private Sub TextBox1_Change()
Feuil4.Cells.Clear
Feuil4.[M1] = bddfeuil1.Cells(1, critere)
Feuil4.[M2] = Me.TextBox1.Value & "*"
Feuil1.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Feuil4.[M:M2], copytorange:=Feuil4.[M1], Unique:=False
If Feuil4.[M1].CurrentRegion.Rows.Count > 1 Then
Set plagefeuil4 = Feuil4.[M1].CurrentRegion.Offset(1).Resize(Feuil4.[A1].CurrentRegion.Rows.Count - 1)
Me.ListBox1.RowSource = plagefeuil4.Address(external:=True)
End If
End Sub