Sub insere()
For Each cel In Range("A6:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23)
If cel.Value <> "Modèle" And cel.Value <> "Total" And cel.Offset(-1, 0) <> "Modèle" Then
Rows("5:6").Copy
Rows(cel.Row & ":" & cel.Row + 1).Insert Shift:=xlDown
End If
Next cel
Application.CutCopyMode = False
End Sub