Ajouter une ligne par une macro

Bonjour,

Je souhaite rajouter une ligne à mon tableau.

Par exemple, mon tableau de base comporte 2 lignes. Certaines cases contiennent des formules.
Je souhaite rechercher la dernière case non vide de la colonne B soit (B3) puis selectionner toute cette ligne (A3:BA3) et la recopier en dessous (en A4). Et rajouter dans la colonne "B" de cette nouvelle ligne (B4) : = la case du dessus + 1
Puis quand je relance la macro qu'elle détecte du coup que j'ai 3 lignes et que je veux maintenant une 4ème
Et ainsi de suite.

J'ai déjà commencé avec ce code :
Code:

1 2 3 4 5 6 Sheets("Feuil1").Select Range("B10").Select Selection.End(xlDown).Select ActiveCell.Offset(0, -1).Activate Range(Selection, Selection.End(xlToRight)).Select
(Mais ici il me copie que les 2 premières colonnes car la colonne C est vide. Moi j'aimerais qu'il me copie toute la ligne)

Merci pour voir aide.

Code:

1
2
3
4
5
6
7
8
9
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil1")                                       'Adapter le nom de la feuille
    LastLig = .Cells(Rows.Count, "B").End(xlUp).Row
    .Rows(LastLig).Copy .Range("A" & LastLig + 1)
    .Rows(LastLig + 1).SpecialCells(xlCellTypeConstants).ClearContents
    .Range("B" & LastLig + 1) = 1 + .Range("B" & LastLig)
End With

Merci beaucoup pour votre aide

ça marche super bien :ccool:

Bonne journée