re,
essaie comme ceci :
Sub hausse()
Dim Cel As Range
Dim DerLigne As Integer
Dim Mahausse1 As Double, Mahausse2 As Double, Mahausse3 As Double
Mahausse1 = 27.06
Mahausse2 = 1.305
Mahausse3 = 1.111
Application.ScreenUpdating = False
On Error Resume Next
DerLigne = Range("D65535").End(xlUp).Row
For Each Cel In Range("E9:E" & DerLigne)
Cel = IIf(Cel.Offset(0, -1) <> "", WorksheetFunction.Round((Cel.Offset(0, -1) * Mahausse1), 2), "")
Next
For Each Cel In Range("G9:G" & DerLigne)
Cel = IIf(Cel.Offset(0, -1) <> "", WorksheetFunction.Round((Cel.Offset(0, -2) * Mahausse2), 2) + Cel.Offset(0, -1) * Mahausse2, "")
Next
For Each Cel In Range("H9:H" & DerLigne)
Cel = IIf(Cel.Offset(0, -1) <> "", WorksheetFunction.Round((Cel.Offset(0, -1) * Mahausse3), 2), "")
Next
Range("D8").Select
End Sub
Si ok, lors de ta réponse merco de cloture le fil en cliquant sur le V vert à coté du bouton EDITER
Amicalement