Sub hausse()
Range("E9:E9").Select
For Each Cell In Selection
If Cell <> "" Then
Cell.Select
ActiveCell.Select
mahausse = 27.06
ActiveCell.Value = ActiveCell.Offset(0, -1) * mahausse
Else
Cell.Select
End If
Next
Range("G9:G9").Select
For Each Cell In Selection
If Cell <> "" Then
Cell.Select
ActiveCell.Select
mahausse2 = 1.305
ActiveCell.Value = ActiveCell.Offset(0, -2) * mahausse2
Else
Cell.Select
End If
Next
Range("H9:H9").Select
For Each Cell In Selection
If Cell <> "" Then
Cell.Select
ActiveCell.Select
mahausse3 = 1.111
ActiveCell.Value = ActiveCell.Offset(0, -1) * mahausse3
Else
Cell.Select
End If
Next
End Sub