Ajout bouton nouvelle ligne

Bonjour à tous,

Je suis complètement novice en VBA, j'ai essayé de créer un bouton à la fin de mon tableau (que vous trouverez en pièce jointe).

Ce bouton est censé permettre aux utilisateurs d'ajouter une ligne au-dessus de la ligne rouge autant que de besoin.

Le bouton fonctionne mais la ligne s'insère toujours au même endroit (ligne 26)...

Je n'ai pas trouvé comment faire pour que la ligne s'ajoute tout le temps au dessus de cette ligne rouge que j'ai renommée "Dernière_ligne".

Pouvez-vous m'aider ? je sèche un peu dans mes recherches et n'y connais rien du tout en VBA...

Merci par avance pour votre aide. à très bientôt j'espère.

Hello,

J'ai renommé "Derniere ligne" en "DL_AbsRemp" pour identifier précisément la dernière ligne du tableau cible.

Il faudra suive la même logique pour les autres tableaux et adapter le code.

Code pour le tableau des absences et remplacement :

    Dim lngInsertRow As Long
    lngInsertRow = Range("DL_AbsRemp").Row 'Ici adapter le nom de la dernière ligne du tableau cible
    Rows(lngInsertRow).Insert Shift:=xlDown
    Range("A" & (lngInsertRow - 1) & ":Q" & (lngInsertRow - 1)).Copy
    Range("A" & lngInsertRow & ":Q" & lngInsertRow).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

Merci pour cet envoi mais je rencontre un problème, qu'est-ce que j'ai fait de mal ? :

J'ai trouvé, merci beaucoup ! ça va nous faciliter le travail...