Sub ajoutenregistrement()
'
' ajoutenregistrement Macro
'
'
With ActiveSheet
.Unprotect
.Rows(.Range("Tableau7")(.Range("Tableau7").Count).Row + 1).Insert Shift:=xlDown
.ListObjects("Tableau7").Resize Range("$A$" & [Tableau7[#headers]].Row & ":$B$" & .Range("Tableau7")(.Range("Tableau7").Count).Row + 1)
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingRows:=True, _
AllowInsertingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End With
End Sub