Sub chercher()
Dim i&, fin&
With Feuil1
fin = .Range("M" & Rows.Count).End(3).Row
For i = fin To 1 Step -1
If .Cells(i, 13) Like "*CHAPITRE*" Then
.Rows(i + 1).Insert shift:=xlDown
.Rows(i + 1).Insert shift:=xlDown
.Rows(i).Insert shift:=xlDown
.Cells(i + 1, 13).Font.Bold = 1: .Cells(i + 1, 13).HorizontalAlignment = xlRight
i = i - 1
End If
Next i
End With
End Sub