XL 2010 En VBA, se déplacer d'une cellule à une autre dans un autre onglet en fonction de son résultat

Private Sub Worksheet_Change(ByVal Target As Range)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim R As Range 'déclare la variable R (Recherche)

If Target.Address <> "$A$2" Then Exit Sub 'si le chagement a lieu ailleurs qu'en A2, sort de la procédure
Set O = Worksheets("Feuil1") 'définit l'onglet O
Set R = O.Columns(1).Find(Target.Value) 'définit la recherche R (recherche la valeur de A2 dans la colonne 1 (=A) de l'onglet O)
If Not R Is Nothing Then 'condition : s'il existe au moins une occurrence trouvée
    O.Select 'sélectionne l'onglet O
    R.Offset(0, 1).Select 'sélection la cellule à droite de la première occurrence trouvée
End If 'fin de la condition
End Sub