Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Or IsEmpty(Target(1, 1)) Then Exit Sub
If Intersect(Target, Range("Tableau5[Tiers]")) Is Nothing Then Exit Sub
If IsError(Application.Match(Target.Value, Sheets("Listes").ListObjects("tbl_Tiers").ListColumns(1).Range, 0)) Then
With Sheets("Listes").ListObjects("Tbl_Tiers")
.ListRows.Add().Range(1, 1) = Target.Value
.Range.Sort key1:=.DataBodyRange(1, 1), order1:=xlAscending, Header:=xlYes
End With
End If
End Sub