Rem : Pensez à utiliser les balises de codes en cliquant sur l"icone </> lorsque vous postez un code. C'est plus lisible pour chacun.
Est-ce que c'est ce code ?? Que je dois modifier
Non. Le code comme ceci est à mettre dans la feuille Saisie
Private Sub TextBox1_Change()
With ListObjects("t_HdC")
If TextBox1.Value = vbNullString Then
.Range.AutoFilter Field:=1
Else: .ListColumns(1).Range.AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Value & "*", Operator:=xlAnd
End If
End With
End Sub
Crdlt