Ajout d 'une ligne toujours sous l'en-tête d'un tableau mobile

Bonsoir à tous et merci de m'accueillir sur votre forum.

Je suis novice en Vba.

Je cherche à créer un formulaire pour jouter des entrées sur DES tableaux. plusieurs tableaux se trouvent sur une même feuille.

je sais (a peu près) ajouter une ligne sous l'entête du premier tableau. en revanche pour les seconds et troisième situés plus bas sur la feuille, je n'y arrive pas. plus les tableaux se remplissent, plus mon adresse d'insertion "sort" de mon tableau.

il me faudrait en quelque sorte demander à VBA de toujours prendre en référence l'en tête de tableaux et non les numéros de ligne.

je ne suis probablement pas clair dans mon propos après plusieurs soirées de recherche.

je ne sais hélas pas formuler mon problème dans votre "langage"

merci:

-1- de me comprendre

-2- de me répondre

cordialement,

Patrick

Je vous recopie le code que j'ai écrit:

Sub CACA()

'si le type est OMNIPRATICIENS-ENDO++
Sheets("NOUVELLE ENTRÉE").Select

If Range("E7") = "OMNIPRATICIENS-ENDO++" Then

Select Case Range("E8").Value

'Si la région est charente Maritime
Case 17

'ajoute une ligne
Sheets("OMNIPRATICIENS-ENDO++").Select
Range("6:6").Insert CopyOrigin:=xlFormatFromRightOrBelow

'Copie les données
Sheets("NOUVELLE ENTRÉE").Select
Range("E8:E20").Select
Selection.Copy
Sheets("OMNIPRATICIENS-ENDO++").Select
Range("A6:M6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("6:6").Select
Selection.Font.Bold = True
Selection.Font.Bold = False
Sheets("NOUVELLE ENTRÉE").Select
Selection.ClearContents
Range("E7").Select

'Si la région est Charente
Case 16

'ajoute une ligne
Range("Tableau22[#Headers]").Select
Selection.ListObject.ListRows.Add (1)

'Copie les données
Sheets("NOUVELLE ENTRÉE").Select
Range("E8:E20").Select
Selection.Copy
Sheets("OMNIPRATICIENS-ENDO++").Select
Range("A9:M9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Rows("9:9").Select
Selection.Font.Bold = True
Selection.Font.Bold = False
Sheets("NOUVELLE ENTRÉE").Select
Selection.ClearContents
Range("E7").Select

'Si la région est AQUITAINE
Case 19, 23, 24, 33, 46, 47, 87

'ajoute une ligne
Sheets("OMNIPRATICIENS-ENDO++").Select
Range("14:14").Insert CopyOrigin:=xlFormatFromRightOrBelow

'Copie les données
Sheets("NOUVELLE ENTRÉE").Select
Range("E8:E20").Select
Selection.Copy
Sheets("OMNIPRATICIENS-ENDO++").Select
Range("A12:M12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("13:13").Select
Selection.Font.Bold = True
Selection.Font.Bold = False
Sheets("NOUVELLE ENTRÉE").Select
Selection.ClearContents
Range("E7").Select

'Si la région est OCCITANIE
Case 11, 31, 32, 40, 64, 65, 66, 81, 82

'ajoute une ligne
Sheets("OMNIPRATICIENS-ENDO++").Select
Range("24:24").Insert CopyOrigin:=xlFormatFromRightOrBelow

'Copie les données
Sheets("NOUVELLE ENTRÉE").Select
Range("E8:E20").Select
Selection.Copy
Sheets("OMNIPRATICIENS-ENDO++").Select
Range("A15:M15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("15:15").Select
Selection.Font.Bold = True
Selection.Font.Bold = False
Sheets("NOUVELLE ENTRÉE").Select
Selection.ClearContents
Range("E7").Select

voici une capture d'écran de mon tableau

Bonjour pataram et

Je vous invite à lire :
- La charte du forum dans laquelle il est notamment indiqué :

• Ne postez aucune information personnelle et/ou confidentielle sur le forum (en particulier dans les fichiers joints) et rappelez-vous que vous êtes responsable de tout ce que vous postez sur le forum.

- Quelques fonctionnalités du forum à connaître
qui vous aideront dans vos demandes et réponses sur ce forum.

Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)

Merci pour votre participation

Cordialement