Option Explicit
Public L As Long, nbL As Long
Sub CopyInsertHiddenLignes()
nbL = 14
With Feuil1
'L = .Columns(2).Find("Total", LookIn:=xlValues, lookat:=xlWhole).Row
L = .Cells.Find("Total", LookIn:=xlValues, lookat:=xlWhole).Row
.Rows(L - nbL - 1 & ":" & L - 1).Select
.Rows(L - nbL - 1 & ":" & L - 1).Copy
.Rows(L).Insert Shift:=xlDown
L = .Cells.Find("Total", LookIn:=xlValues, lookat:=xlWhole).Row
.Range("B" & L - nbL - 1) = .Range("B" & L - nbL - 1) + 1
Application.CutCopyMode = False
End With
L = L + 2
CacheLignes
End Sub
Sub CacheLignes()
nbL = 12
Feuil1.Rows(L - nbL - 1 & ":" & L - 1).EntireRow.Hidden = False 'True
' Feuil1.Rows("29:41").EntireRow.Hidden = False 'True
End Sub