Sub CopieLigne()
Dim Recherche As String, i As Long, Prix As Single
Recherche = "A"
With Worksheets("Feuil1")
derlig = .Range("L" & Rows.Count).End(xlUp).Row
For i = derlig To 2 Step -1 'Each cel In plage
If .Cells(i, 12).Value = Recherche Then
Prix = .Cells(i, 12).Offset(0, 2).Value - 150
.Cells(i, 12).Offset(0, 2).Value = 150
.Rows(i).Copy
.Rows(i).Insert Shift:=xlDown
Application.CutCopyMode = False
.Cells(i, 12).Offset(0, 2).Value = Prix
' ou .Cells(i + 1, 12).Offset(0, 2).Value = Prix 'suivant ligne à 150 en premier
End If
Next i
End With
End Sub