Private Sub Worksheet_Change(ByVal Target As Range)
'
If Target.Column > 1 Or Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
For Each tableau In ListObjects
With tableau
.ListRows.Add
.Range.Cells(.ListRows.Count + 1, 1).Value = Target.Value
End With
Next
Application.EnableEvents = True
End Sub