Bonjour
J'ai une petite macro qui recopie les formule, le format conditionnel sur une ligne en dessous de la selection, tu peux peut être l'adapter à ton classeur.
Sub NouvelleLigneEnDessous()
Dim i As Integer
Dim j As Integer
Dim NumLig As Integer
Dim DerCol As Integer
Dim tbl As Range
Dim Z As Range
Dim plage As Range
Application.ScreenUpdating = False
Set tbl = [A1].CurrentRegion
Set plage = Application.Union(Range(Selection.Address), Range(tbl.Offset(3, 0).Resize(tbl.Rows.Count - 5, tbl.Columns.Count).Address))
If plage.Address <> tbl.Offset(3, 0).Resize(tbl.Rows.Count - 5, tbl.Columns.Count).Address Then MsgBox "Placez-vous dans la zone " & tbl.Offset(3, 0).Resize(tbl.Rows.Count - 5, tbl.Columns.Count).Address: Exit Sub
For j = 1 To Selection.Rows.Count
ActiveCell.Range("A2").EntireRow.Insert
NumLig = ActiveCell.Row
DerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(NumLig, 1), Cells(NumLig, DerCol)).Copy Range(Cells(NumLig + 1, 1), Cells(NumLig + 1, DerCol))
For i = 1 To DerCol
If Not Cells(NumLig + 1, i).HasFormula Then
Cells(NumLig + 1, i).ClearContents
End If
Next i
Next j
ActiveCell.Range("A2").Select
Application.ScreenUpdating = True
End Sub
@+