Sélectionner une cellule

Bonjour,
J'ai besoin de votre aide.
La commande ci-après, vide les cellules de la ligne active si Target en colonne "Z":
derlig = [A4].End(xlDown).Row
Range("A" & Target.Row & ":Z" & Target.Row).Cells.ClearContents
Range("A4", Cells(derlig, Target.Column)).Sort _
Key1:=Range("B4"), Order1:=xlAscending, _
Key2:=Range("C4"), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom

Je souhaiterais que la cellule active sélectionnée après l'action soit la cellule de la colonne "AA" sur la même ligne.
Exemple: si je valide la cellule "Z10", je souhaiterais que le curseur se positionne ensuite en "AA10".
Quel code ajouter dans la commande ci-dessus ?

Merci de votre aide.