Syntaxe d'un offset

Bonjour à tous.

J'aurais besoin d'un coup de pouce pour modifier le code ci-dessous.
(syntaxe du offset)
Le but est d'atteindre la dernière valeur de la colonne dans laquelle j'ai
trouvé, en ligne 3, la correspondance avec A2.

D'avance, merci.
***********************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)

Dim CellChange As Range
Dim Cherche As String
Set CellChange = [A2]
Cherche = CellChange.Value

If Not Application.Intersect(CellChange, Range(Target.Address)) _
Is Nothing Then
Cells.Find(What:=Cherche, After:=[A2]).Activate
Application.Goto ActiveCell.Offset(1, 0), Scroll:=True
'Application.Goto ActiveCell.Offset(DernièreValeurDeLaColonne, 0),
Scroll:=True
End If
End Sub

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.