Private Sub TextBox_reference_Change()
On Error Resume Next
'inscrire notre recherche dans le filtre en p6
'rajouter "*" & devant le me. si on veut trouver une correspondance sans taper toute la reference
Sheets("Stock_Congel").Range("Critère_Transfert") = Me.TextBox_reference
Sheets("Stock_Congel").Range("Tableau1[#all]").AdvancedFilter Action:=xlFilterCopy, criteriarange _
:=Sheets("Stock_Congel").Range("p5: p6"), copytorange:=Sheets("Stock_Congel").Range("r5:aa5"), unique:=False
'afficher le résultat dans la listbox
UserForm_Activate
End Sub