Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set tbl = ListObjects("Tableau2")
NbLigne = tbl.Range.Rows.Count
If Not Application.Intersect(Target, Cells(NbLigne, "C")) Is Nothing Then
Set tbl = ListObjects("Tableau2")
Application.EnableEvents = False
tbl.Resize tbl.Range.Resize(tbl.Range.Rows.Count + 1)
Application.EnableEvents = True
End If
End Sub