(RESOLU) rajout de lignes automatique avec formules

[exelan]

salut a tous
après avoir valider ma date je voudrai le curseur en cellule B et
que ça me rajoute une ligne en dessous avec les formules peut importe ou je rajoute
la date

 

[exelan]

Re : rajout de lignes automatique avec formules

personne pour m aider snif!!

 

[exelan]

pour ceux qui galère comme moi je partage !!

Sub InsererSousAvecFormules()
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents

End Sub

merci a brunosc