Recopier une ligne avec ses formules - MACRO

Bonjour à tous. 

J'ai trouvé sur un autre forum la réponse à ma solution encore mieux que ce que j'espérais.

Ce code permet d'insérer une ligne en dessous de la dernière ligne avec les même critères en conservant les formules et les mises en formes qui sont dans la ligne voulu. 

Sub insérer_ligne()
    Dim cell As Range, cell1 As Range
    Dim i As Integer, j As Integer
    
    With ActiveSheet
        ' recherche dans tableau de suivi de la dernière cellule correspondant à la catégorie produit sélectionnée
        Set cell = .Columns("B").Find(.Range("$B$8"), SearchDirection:=xlPrevious)
        If Not cell Is Nothing Then
            'recherche dans tableau de suivi de la dernière ligne correspondant à la catégorie produit et type produit sélectionné
            Set cell1 = cell
            Do
                i = cell.Row   'numéro de ligne du tableau
                If .Cells(i, "C") = .Range("$C$8") Then Exit Do
                Set cell = .Columns("B").FindPrevious(cell)
            Loop Until cell.Address = cell1.Address
            
            'ajout nouvelle ligne tableau derrière  la dernière trouvée
            i = i + 1
            .Rows(i).Insert
            .Cells(i, "B") = .Range("$B$8")
            .Cells(i, "C") = .Range("$C$8")
            For j = .Columns("B").Column To .Columns("T").Column
                If .Cells(i - 1, j).HasFormula Then .Cells(i - 1, j).Copy .Cells(i, j)
            Next j
        End If
    End With
End Sub

Voilà le fichier : https://www.cjoint.com/c/MKih6qvoeAu

Cordialement 

1. J'insère une ligne qui décale le tableau vers le bas donc, la ligne 5 devient la ligne 6 et donc ma nouvelle ligne vide sera la ligne 5)

2. avec une formule en B5

Sub Macro1()
   ' insertion d'une ligne vide aavant la ligne 5
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
    ' recopie de la formule de B4 en B5
    Range("B4").Select
    Selection.AutoFill Destination:=Range("B4:B5"), Type:=xlFillDefault
End Sub

Cdlmnt

Bonjour

Pour insérer une ligne avant la lige 3 et recopier la ligne 2, formules comprises, l'éditeur de macro donne ceci

Sub Macro1()
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Range("A2:C2").Select
    Selection.AutoFill Destination:=Range("A2:C3"), Type:=xlFillDefault
End Sub

Cdlmnt

Bonjour

Essaies ceci

Public Sub ins_ligne()
With ActiveSheet
  Rows("5:5").Select
  Selection.Insert Shift:=xlDown
  .Cells(5, 1).Select
End With
End Sub

Cdlmnt

Désolé, j'ai mal lu !

Des questions toutefois au sujet de "la formule"

1. y a t'il une ou plusieurs formules à copier, et dans quelles cellules sont elles ?

2. les cellules ne contenant pas de formule doivent être vides ?

3. Si la formule à copier fait référence à la même ligne (du genre C5 = B5+1), ça ira (à peu près avec ça)

Sub Macro1()
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
    Range("A4:C4").Select
    Selection.AutoFill Destination:=Range("A4:C5"), Type:=xlFillDefault
End Sub

4. sinon (du genre C5 = C4+1) il faudra la recopier jusqu'en bas

5. Le mieux serait d'envoyer un bout de fichier avec le résultat souhaité

Cdlmnt