Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1").Value = "NON" Then
If MsgBox(Prompt:="Etes-vous sûr ?", Title:="Attention !", Buttons:=vbYesNo) = vbYes Then
Exit Sub
Else
Range("a1").ClearContents
End If
End If
End Sub
...Est-il possible d'appliquer cela à l'ensemble du classeur ?
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("i3").Value = "PREVISIONNEL DU" Then
If MsgBox(Prompt:="Etes-vous sûr ?", Title:="Attention !", Buttons:=vbYesNo) = vbYes Then
Exit Sub
Else
Range("i3:k3").ClearContents
End If
End If
End Sub