Autres Recherche Vba

Private Sub txtrecherche_Change()
On Error GoTo SALAH
If Me.txtrecherche.Value = "" Then
Me.Lbrecherche.Visible = True
On Error Resume Next
Me.TableDonnées.RowSource = Sheets("Sheet13").Range("Données").Address(External:=True)

Else
Me.Lbrecherche.Visible = False

Sheets("Sheet13").Range("S17").Value = "*" & Me.txtrecherche.Value
Sheets("Sheet13").Rang("tableau[#all]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Sheets("Sheet13").Range("S16:S17"), CopyToRange:=Sheets("Sheet13").Range("U17:AB17"), Unique:=False
Me.TableDonnées.RowSource = ActiveSheet.Range("Données2").Address(External:=True)
End If
Exit Sub
SALAH:
Call MsgBox("Désolé, données introuvables", vbInformation, "tatata")
End Sub