sinon Etirer = Etendre en langague Excel
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:N12")) Is Nothing Then
MsgBox "OK"
Else
Application.Undo
End If
If Not Intersect(Target, Range("B4")) Is Nothing Then
MsgBox "OK"
Else
Application.Undo
End If
End Sub