Modification d'un macro

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Autorisation Then
        Application.EnableEvents = False
        If Target.Count > 1 Then
            Application.Undo
        ElseIf Not Application.Intersect(Target, Range("A2:D2")) Is Nothing Then
            If Target = "" Or Application.CountA(Cells(Target.Row, 1).Resize(, 4)) > 1 Then
                Application.Undo
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub