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) = Application.CountIf(.Range("B:B"), "abc") - 1
Application.CutCopyMode = False
End With
EffaceConstantes
L = L + 2
CacheLignes
End Sub