Cellule Active Limiter plage concernée

Bonjour.
J'ai ce code qui met en surbrillance la cellule active, sélectionnée:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A1")) Is Nothing Then 'Plage'
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
' Highlight the active cell
Target.Interior.ColorIndex = 35
Range("A1:G2").Interior.Color = 13434828 'Met la plage donnée à la couleur de: adapter la couleur avec Code Microsoft...'
Application.ScreenUpdating = True
End If
End Sub

Il fonctionne très bien, mais je n'arrive pas à limiter son action à la plage A3:G3000
Quel est la modif pour appliquer cette limitation ?

Merci







Windows 8.1 Office 2013