Insertion lignes excel

Bonjour,
Sélectionne la dernière ligne qui vient tout juste après le tableau en cliquant sur le numéro de la ligne à droite, ensuite clic droit insertion, répète l'opération une deuxième fois.
Cdt

Bonsoir
J'avais mal interpréter votre demande, voici la correction

Sub Insertion2Lignes()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Derlig = [A100000].End(xlUp).Row
    Rows(Derlig + 1 & ":" & Derlig + 2).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Cdlt

Bonjour
En supposant que le tableau débute en colonne A
Si vous ne connaissez pas le VBA, A partir de votre fichier ouvert, faire ALT + F11 et collez les lignes suivantes dans la feuille blanche.

Sub Insertion2Lignes()
    Application.ScreenUpdating = False
    Derlig = [A100000].End(xlUp).Row
    Rows(Derlig & ":" & Derlig + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Revenez sur la feuille Excel, il faut ajouter un bouton ou une figure quelconque exemple:
dans le ruban, sélectionnez "Insertion",
-Sélectionnez "Zone de texte", puis collez et dimensionnez cette zone de texte n'importe où sur votre feuille.
-Puis clic droit dessus,
-Sélectionnez "Affecter une macro",
-Cliquez 1 fois sur "Insertion2Lignes"
-Validez par Ok
chaque fois que vous cliquerez dessus, ça insèrera 2 lignes avant la dernière ligne.
Cdlt