Sub inserer_ligne()
Dim i As Integer, c As Range
With Range("t_BDD").ListObject 'votre tableau structuré
Set c = Intersect(ActiveCell, .DataBodyRange) 'vérifie si vous êtez actuellement dans ce tableau
If c Is Nothing Then Exit Sub 'arrête sinon
i = c.Row - .HeaderRowRange.Row 'ligne actuel dans ce tableau
.ListRows.Add i, xlFormatFromLeftOrAbove
End With
End Sub