Modification d'un macro

Bonjour,

J'ai une magnifique macro ici qui empêche d'effacer le contenu inscrit dans une cellule en ligne, je désire la convertir en colonne...Range pour : A4:A7. Misère quelqu'un a la solution?

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

Merci à l'avance, j'attends impatiemment la réponse :-)

EDIT: Ajout des balises de code