Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range, n As Byte
If Target.Count > 1 Then
For Each cell In Range(Target.Address)
If IsEmpty(cell) Then n = n + 1
Next
If n > 0 Then MsgBox "cellules de la plage " & Target.Address & " effacées !"
Exit Sub
End If
If Target = "" Then MsgBox "cellulle " & Target.Address & " effacée !"
End Sub