Exécution automatique de macro sans changer de cellule.

Bonjour à tous,

Je souhaiterais que ma macro s'effectue automatiquement dés qu'une cellule est modifiée. Le code que j'utilise fonctionne très bien. Cependant, une fois une cellule modifiée, je souhaiterais que mon curseur ou la cellule sélectionnée ne change pas. Avec mon code actuel c'est très embêtant, une fois une cellule modifiée mon curseur se place sur une cellule que j'utilise dans ma macro je souhaiterais pouvoir encoder mon tableau sans bouger mais en exécutant malgré tout mon code que voici:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("A1:AAA90")) Is Nothing Then
    
   '
' Macro2 Macro
'

'
    Range("F2:I9").Select
    ActiveWorkbook.Worksheets("Brazil 2014").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Brazil 2014").Sort.SortFields.Add Key:=Range( _
        "H3:H9"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Brazil 2014").Sort.SortFields.Add Key:=Range( _
        "G3:G9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Brazil 2014").Sort
        .SetRange Range("F2:I9")
        .Header = xlYes
        .MatchCase = True
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With
 End If
End Sub

Merci d'avance pour votre aide.