Copier/Coller & Incrementation Cellule

Bonjour à toutes et à tous

Nouveau sur le forem et en VBA j'ai une petite question qui vous semblera je pense très simple.

J'ai créé un fichier excel (copie jointe).

J'ai une macro qui permet de rajouter une ligne à la fin de la feuille qui fonctionne.

Je souhaite lorsque que j'insère cette ligne que la dernière valeur de la colonne A incrémente de 1

Une Idée ?

Merci de votre aide

Bonsoir

A tester

Option Explicit
Sub InsertLigne()
Dim Lg%
    Lg = Range("A65536").End(xlUp).Row
    Application.CutCopyMode = False
    Rows(Lg).Copy
    Rows(Lg + 1).Insert
    Rows(Lg + 1).ClearContents
    Range("A" & Lg + 1) = Application.Max(Columns("A")) + 1
End Sub

A Benzai 64, Bonjour de Guadeloupe

Cool merci ça fonctionne super.

Denis