Sub Insertion_Ligne()
Dim PLgL As Range
Set PLgL = ActiveSheet.ListObjects("Tableau2").ListRows.Add.Range
PLgL(1, 1) = Cells(8, 1) + 1 ' mettre le N° du point automatiquement grace à la valeur du dernier
PLgL(1, 2) = Date 'mettre la date du jour dans la colonne 2
End Sub