Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Me.UsedRange)
If Not Target Is Nothing Then
Application.EnableEvents = False
For Each Target In Target 'si entrées/effacements multiples
If IsNumeric(CStr(Target)) Then Target = Target * 1.5
Next
Application.EnableEvents = True
End If
End Sub