Insertion ligne avec copie formules

Bonjour à toutes et tous

Je travaille actuellement sur un fichier Excel 2003 dans lequel j'ai placé une macro qui permet d'insérer une ligne dès que la cellule nommée "premièreCelluleApresTableau" n'est pas vide. J'ai cependant plusieurs questions :

1) Cette macro fonctionne bien, cependant j'aurais souhaité qu'elle copie également les formules comprises dans les colonnes O, S et AA (tout comme elle copie les listes et les mises en forme)... et la c'est le drame ^^

Voici la macro en question:

Private Sub Worksheet_Change(ByVal Target As Range)

    ' teste si la cellule juste au dessus est remplie
    If Range("premiereCelluleApresTableau").Offset(-1) <> "" Then

        ' ajoute une ligne - la ligne s'insère au dessus
        Application.EnableEvents = False ' pour ne pas se mordre la queue
        Range("premiereCelluleApresTableau").EntireRow.Insert xlShiftDown
        Application.EnableEvents = True

    End If
End Sub

Je vous joint également le fichier ça peut aider

Est-ce que l'un de vous saurait m'expliquer comment faire svp?

2) Est-ce que vous savez si la modification de lignes ou la fusion de cellules (en dehors de la dernière ligne) aura une incidence sur le fonctionnement de la macro? Si oui existe-t-il un moyen d'y remédier?

Merci d'avance pour vos réponses et bonne journée

Bonjour,

Essaie comme ceci :

Dim ok As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If ok = True Then Exit Sub
With Range("premiereCelluleApresTableau")
If .Offset(-1) <> "" Then
ok = True
    .EntireRow.Copy
    .EntireRow.Insert xlShiftDown
    .Offset(-1, 0).ClearContents
End If
End With
ok = False
End Sub

On pourrait aussi définir ta dernière cellule par code.

Si ok, n'oublie pas de cocher le V vert à coté du editer pour cloturer le fil.

Amicalement

Yop

Merci de ta réponse Dan

Que veux tu dire par "définir ma dernière cellule par code"?

Je teste ce code de suite

EDIT: La macro fonctionne nickel, merci beaucoup .