Private Sub Worksheet_Change(ByVal Target As Range)
Dim reponse
Application.EnableEvents = False
If Range("O76") > 1000 Then
reponse = MsgBox("Souhaitez-vous bénéficier de l'offre Gold ?", vbQuestion + vbYesNo, "Offre Gold")
If reponse = vbYes Then
Range("n118") = "x"
Else
Range("n118") = "o"
Sheets("BC GOLD").Activate
End If
End If
Application.EnableEvents = True
End Sub