Macro ajout de ligne

Bonjour,

je cherche une macro qui me permettrai d'insérer des lignes au fur et à mesure de mes besoins en conservant mes formules et ceci avant la ligne des totaux. L'idée est qu'à chaque fois que la case "fournisseur" est remplie, une ligne s'ajoute en dessous.

J'ai pas mal chercher sur le net mais je n'arrive pas à adapter les formules à ma situation... c'est vrai que j'y comprends pas grand chose :-/

Je vous joint le fichier si ça peut aider.

Merci d'avance de votre aide.

Bonjour,

Essaie ce code qui fonctionne pour la page 1

Sub insere()
'Macro Dan le 24/06/10
Dim dlg As Long
With ActiveSheet
dlg = .Range("D65536").End(xlUp).Row
Rows(dlg & ":" & dlg).Insert Shift:=xlDown
.Range("A" & dlg - 1 & ":O" & dlg - 1).Copy .Range("A" & dlg)
End With
End Sub

Code à placer dans un module en VBA et à affecter à un bouton de ton choix ou raccourci clavier

Amicalement