[Excel VB] Insertion ligne avec formules

Bonjour,
j'aimerai savoir s'il est possible d'insérer une ligne tout en conservant les formules de la ligne que l'on recopie.
Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub InsertionLigne_Click() Dim i As Integer   i = 5   ActiveSheet.Unprotect   While Cells(i, 1) <> "Total Enfants" i = i + 1 Wend   If Cells(i, 1) = "Total Enfants" Then If Cells(i - 1, 1) <> "" Then MsgBox "Il faut que la dernière ligne du tableau soit vide!", vbCritical Exit Sub Else Rows(i - 1 & ":" & i - 1).Select Selection.Insert shift:=xlDown End If End If   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True   End Sub

---

Le problème, vous l'avez compris, c'est que j'ai bien ma nouvelle ligne, mais à l'intérieur des cellules, je ne retrouve plus mes formules... (qui sont du type recherchev, nbval...)
D'avance, merci pour votre aide à tous!

Hello,

Pour le principe, tu insères la ligne à insérer vide, tu sélectionnes la dernière ligne contenant les formules, tu fais copier, tu descends d'une lignes, et tu fais collage spécial -> Formules.

Code:

---

1 2 3 4 5 6

Selection.Insert Shift:=xlDown NoLigne = activecell.row 'No la ligne insérée Rows(i).Select 'Ligne où se trouvent des formules à copier Selection.Copy Rows(NoLigne ).Select Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone

---

Tu dis

A+

Ca marche nickel...
Merci beaucoup à toi ouskel'n'or! quel nom, dur à recopier...
Bonne fin de journée à tous.