Option Explicit
Sub Test()
Dim Lig&, DerL&
DerL = Feuil5.Range("A" & Rows.Count).End(xlUp).Row*2
For Lig = 5 To DerL
If Cells(Lig, 11) = "X" Then
With Feuil5
Range("A" & Lig + 1).EntireRow.Insert
Range("A" & Lig + 1).EntireRow.Insert
Range("A" & Lig - 1 & ":D" & Lig).Copy Range("A" & Lig + 1)
Range("G" & Lig - 1 & ":G" & Lig).Copy Range("G" & Lig + 1)
Range("H" & Lig + 1) = WorksheetFunction.Round(Range("H" & Lig) * (20 / 100), 2)
Range("I" & Lig + 2) = Range("H" & Lig + 1)
Range("E" & Lig + 1) = 445662
Range("E" & Lig + 2) = 445712
Range("A" & Lig + 1 & ":I" & Lig + 2).Interior.ThemeColor = xlThemeColorAccent3
Range("E2").Select
End With
End If
Next Lig
End Sub