Insertion d'une ligne dans tableau VBA

Bonjour a tous,

Je souhaite insérer une nouvelle ligne au début de mon tableau excel tout en conservant les propriétés (formule, Mise en forme conditionnelles, format) de la ligne du dessous.

Mon tableau est un tableau structuré (nommé Tableau2).

Ce tableau comporte une entête en ligne 6 et commence en ligne 7. Il comporte 7 colonne (de B a H)

J'ai essayer avec

ListObjects("Tableau2").ListRows.Add Position:=1

La ligne s’insère bien en début de tableau mais ne me conserve ni MFC, formule, format

Merci d'avance pour votre aide

Bonjour,

Un exemple dans le fichier joint pour appréhender la chose..

Cdlt.

Option Explicit

Dim lo As ListObject

Public Sub ClearTable()
    Set lo = Range("Tableau2").ListObject
    If Not lo.DataBodyRange Is Nothing Then lo.DataBodyRange.Delete
End Sub

Public Sub InsertRowInTable()
    Set lo = Range("Tableau2").ListObject
    If lo.InsertRowRange Is Nothing Then lo.ListRows.Add 1
End Sub

Bonjour,

Sub SuppressionLigneTableau()
  [tableau1].Rows(1).delete
End Sub

Sub InsèreLigneTableau()
  [tableau1].Rows(1).Insert
End Sub

Sub AjoutFinTableau()
  n = [tableau1].Rows.Count
  If [tableau1].Item(1, 1) = "" Then n = 1 Else n = n + 1
  [tableau1[nom]].Item(n, 1) = "xxxx"
End Sub

Sub VideTableau()
 If [tableau1].Item(1, 1) <> "" Then [tableau1].delete
End Sub

Boisgontier