Insertion de ligne avec formule

[69carat]

Bonjour,

cela fait plusieurs heures que je surf sur les forums pour trouver une réponse et rien...


Voila mon probleme

j'ai un tableau

en A4 on rempli manuelement en B4:K4 il y a des formules du type C4= A4*AD4
puis on remplir A5 .... C5=A5*AD5

ce que je voudrait, au lieu de tirer les formule sur 3000 lignes, pour ne pas alourdir mon fichier, c'est que des qu'on rempli une cellule de la colonne A, une formule recopie la mise en forme et les formules de la ligne du dessus pour la mettre sur la ligne de la cellule active

j'avait trouvé quelques chose sur le net et je vous le post si cela peut vous aider:

Recopie la ligne entière du dessus lors d'une nouvelle saisie en colonne A

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then
If IsEmpty(Target.Offset(0, 1)) And Not IsEmpty(Target.Offset(-1, 0)) Then
Application.EnableEvents = False
sauv = Target
Target.Offset(-1, 0).EntireRow.Copy Target
On Error Resume Next
Target.EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
Target = sauv
Application.EnableEvents = True
End If
End If
End Sub



PS: mon fichier sera partagé par la suite et sera sur disque commun

Merci de vos réponses