Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Target = Target.Value * 1.15
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal cible As Range)
If Not Intersect(cible, [B2]) Is Nothing And Not IsEmpty([B2].Value) And IsNumeric([B2].Value) Then
With Application: .EnableEvents = False: [B2].Value = 1.15 * [B2].Value: .EnableEvents = True: End With
End If
End Sub