With Feuil1.ListObjects(1)
.ListRows.Add
.Range(.Range.Rows.Count - 1, 1).Value = NumAction.Value
.Range(.Range.Rows.Count - 1, 7).Value = Action.Value
.Range(.Range.Rows.Count - 1, 8).Value = DateAction.Value
.Range(.Range.Rows.Count - 1, 9).Value = RespAction.Value
End With