Option Explicit
Sub Ligne_insérer_x_x_si_couleur_x()
Dim i As Long, ii As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
If Range("a" & i).Interior.Color = 16776960 Then
For ii = 1 To 2
With Rows(i)
.Insert
.Offset(-1, 0).Interior.Color = xlNone
End With
Next
End If
Next
Application.ScreenUpdating = True
End Sub