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