Re,
La mise à jour avec 2 tableaux distincts.
Rappel : Les formats, les formules, MFCs, listes déroulantes, etc... sont reproduits automatiquement lors de l'insertion de lignes.
Cdlt.
Public Sub InsertRowInTables()
Dim lo As ListObject, lr As ListRow
For Each lo In ActiveSheet.ListObjects
Set lr = lo.ListRows.Add
lr.Range.RowHeight = 20
Next lo
End Sub