Insert lignes

Bonjour,

Pouvez-vous m'aider svp ? Je souhaiterai avoir une macro afin d'insérer une ligne au-dessus de

chaque ligne lorsque celle-ci est en jaune.

Fichier excel joint

Merci bcp

Bonjour,

Sub insert()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Cells(i, 1).Interior.Color = 65535 Then
        Rows(i).insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
Next
End Sub

SUPER RESULTAT

Merci bcp STEELSON

de rien