macro évènementielle quand insertion d'une ligne

bonjour bourby
regarde si cette petite bricole signée iznogood, si je me souviens bien, ne
te conviendrait pas

Sub NouvelleLigneAuDessus() 'icône MAJ
' Insère une ligne au-dessus de la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
Dim i
ActiveCell.EntireRow.insert
ActiveCell.Range("A2").Select
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig - 1, 1), Cells(ZtNumLig - 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig - 1, i).HasFormula Then
Cells(ZtNumLig - 1, i).Clear 'Contents(pour que s'annulent aussi
les commentaires)
End If
Next i
ActiveSheet.Range("A2").Select
End Sub

HTH
jps

"Bourby" <Bourby@discussions.microsoft.com> a écrit dans le message de
news:82DA86E0-7910-4BEA-ABDD-B15013FFB00E@microsoft.com...

bonjour,
lorsque j'insère une lignedans feuil1, je souhaite déclencher une macro
qui

copiera (dans les nouvelles cellules) les formules présentes dans les
colonnes F à AZ.
Cet évènement n'est pas prévu dans worksheet; peut-on faire quelque-chose
à

partir de beforeRightClic, ou autrement?
D'avance merci pour votre aide
Bourby