non les macros sont :
Sub Ajouteruneligne()
'
'
'Sélection de la dernière ligne du tableau
Range("A1").CurrentRegion.Rows(Range("A1").CurrentRegion.Rows.Count).Copy
'Ajout de la copie à la suite du tableau
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
'Effacement des données copiées
Selection.ClearContents
End Sub
Sub Ajouteruneligne1()
'
'
'Sélection de la dernière ligne du tableau
Range("L1").CurrentRegion.Rows(Range("L1").CurrentRegion.Rows.Count).Copy
'Ajout de la copie à la suite du tableau
Range("L65536").End(xlUp).Offset(1, 0).PasteSpecial
'Effacement des données copiées
Selection.ClearContents
End Sub