Insertion des lignes

Bonjour,

Sur le fichier Excel en PJ, je veux insérer les deux lignes en bleu après chaque ligne qui contient "contrôle" comme indiquer en jaune .

Comment je peux procéder svp, et merci d'avance

Bonjour,

une proposition de macro

Sub aargh()
With Sheets("feuil2")
 dl = .Cells(Rows.Count, 1).End(xlUp).Row
 For i = dl To 9 Step -1
  If .Cells(i, 3) = "Contrôle" Then
    .Rows(i + 1 & ":" & i + 2).Insert shift:=xlDown
    .Rows("8:9").Copy .Rows(i + 1)
  End If
 Next i
End With
End Sub

résultat dans le fichier

Bonjour

peux être aussi comme ca

A+

Maurice

Sub Test()
Application.ScreenUpdating = False
Nlig = Range("C" & Rows.Count).End(xlUp).Row
    For L = Nlig To 11 Step -1
        If Range("C" & L).Value = "Contr?le" Then
            Rows("8:9").Copy
            Rows(L + 1).Insert Shift:=xlDown
        End If
    Next L
End Sub