XL 2013 dezoom sur validation

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Application.Intersect(Target,  Range("D7,F23,F27,R23,R27,AD23,AD27,B38,N38,AA38,B   46,N46,AA46,B61,R61,Y61,AC61,B76,S76,B84,S84,B92,S  92")) Is Nothing  Then
    ActiveWorkbook.CustomViews.Add ViewName:="x", PrintSettings:=True, _
            RowColSettings:=True
            ActiveWindow.Zoom = 300
Else
ActiveWindow.Zoom = 100
        End If
  
End Sub