Bonjour @ tous

Revoici la KichE aka Théodore.
J'ai ici un petit bout de code pour insérer une ligne dans un tableau.
L'idée est d'aller à la dernière ligne remplie, puis de descendre de 1 ligne puis d'insérer ma ligne là.

Le truc c'est que j'ai plusieurs cellules avec des formules donc je veux sélectionner la ligne du dessous (celle qui avait les formules et qui a été repoussée) et "tirer les formules".

Voici:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub ajouter_lignes()
Range("A25").Select
    Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        Selection.EntireRow.Insert
            ActiveCell.Offset(1, 0).Select
            Selection.EntireRow.Select
                Range(Selection, Selection.EntireRow).Select
                Selection.AutoFill Destination:=Range("XXX"), Type:=xlFillDefault
                Range("XXX").Select
    ActiveCell.Select
End Sub
Je bloque au niveau du range de destination, je ne sais pas comment écrire ça en ref relative.

Merci de vos contributions.

Théodore