VBA, insertion ligne dans une table

bonjour à tous

je n'arrive pas à inserer une ligne au milieu d'une table en VBA

le code suivant genere une "erreur 1004...deplacement de cellules d'un tableau"

Rows(ligne).Select

Selection.EntireRow.Insert

quand je le fais "à la main" (selection ligne puis "inserer"), ça marche

mais si je l'enregistre en macro, j'execute, ça plante

quelqu'un aurait une explication (et une solution) ?

merci !

Bonjour,

Il n'y a aucune raison valable d'insérer une ligne dans une table !

Pas de classeur joint et pas de code : Que veux tu qu'on te dise ?

A+

Bonjour,

Une proposition à étudier.

Cdlt.

Public Sub InsertRowInTable()
Dim Table As ListObject
Dim lngFirstRowInTable As Long, lngItemsCount As Long, lngRowInTable As Long
Dim bytIndex As Byte
    If ActiveCell.ListObject Is Nothing Then Exit Sub
    Set Table = ActiveCell.ListObject
    With Table
        bytIndex = IIf(Table.ShowHeaders, 0, 1)
        lngFirstRowInTable = .Range.Cells(1).Row
        lngItemsCount = .ListRows.Count
        lngRowInTable = ActiveCell.Row - lngFirstRowInTable + bytIndex + 1
        If lngRowInTable > lngItemsCount Then
            .ListRows.Add
        Else
            .ListRows.Add Position:=lngRowInTable
        End If
    End With
    Set Table = Nothing
End Sub

merci !

je regarde