trouver dernière cellule non vide col A et aficher resultat de la col I correspondante

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig As Long, rw
derlig = Cells(Rows.Count, 2).End(xlUp).Row
Range("e3").Value = Cells(derlig, 2).Value
rw = Application.Match(Range("e3"), Columns(2), 0)
Range("c3").Value = Cells(rw, 9).Value
Cancel = True
End Sub

'OUBIEN

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim derlig As Long, rw

  If Not Intersect(Target, Columns("J:J")) Is Nothing Then
  derlig = Cells(Rows.Count, 2).End(xlUp).Row
  Range("e3").Value = Cells(derlig, 2).Value
  rw = Application.Match(Range("e3"), Columns(2), 0)
  Range("c3").Value = Cells(rw, 9).Value
  End If

End Sub