Copier 2 éléments d'une ligne après un "scrolling"

Bonjour;

JB m'a fabriqu=E9 un code qui me permet en entrant des nombres ou du text=
e=20
dans H2 de scroller et positionner la cellule active dans la premi=E8re=20
cellule qui contient le nombre ou le texte tap=E9.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address =3D "$H$2" Then
On Error Resume Next
[A:A].Find(what:=3DTarget, LookIn:=3DxlValues).Select
[B:B].Find(what:=3DTarget, LookIn:=3DxlValues).Select
Else
ActiveWindow.ScrollRow =3D ActiveCell.Row
End If

End Sub

Ce que je souhaiterais maintenant, c'est r=E9cup=E9rer le contenu des=20
colonnes B et C de la ligne atteinte afin de le copier et de le coller=20
ailleurs (en H1 et I1 pr=E9cis=E9ment)

J'ai essay=E9 la macro ci-dessous... mais rien ne se passe :-((
Cette macro intervient apr=E8s que le module ci-dessus ait fait effet; la=
=20
cellule active est donc sur la bonne ligne, en colonne A ou B selon que=20
j'ai entr=E9 un nombre ou du texte.

Sub Copieresul()

Range("B:C").Select
Selection.Copy
Range("I1").Select
ActiveSheet.Paste

End sub

Qu'est-ce qui est faux ???

Merci de votre collaboration.

Cordialement,
Pierre F.