Cellule active sur la colone Y à la fin de la macro

Bonjour,

Je souhaiterai qu'a la fin de cette macro la cellule active se place sur la colone Y de la ligne oû elle etait présente.

Pouvez vous m'aider ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then

        ' sauf ligne de titre et ligne vide
        If Not Application.Intersect(Target, Range("A1:A1")) Is Nothing Then Exit Sub
        If Cells(Target.Row, 2).Value = "" Then Exit Sub

        ' si la valeur n'est pas numérique
        If Not IsNumeric(Cells(Target.Row, 2).Value) Then
            MsgBox "la valeur de la cellule n'est pas numérique !"
            Cells(Target.Row, 2).Select
            Exit Sub
        End If

        For i = 3 To 2 + Cells(Target.Row, 2).Value
            copie = copie & Cells(Target.Row, i).Value & ";"
        Next i
        i = 3 + Cells(Target.Row, 2)

        copie = Replace(copie, "};", "}") ' permettre la validation du formulaire
        copie = "transfert$" & Cells(Target.Row, 1).Value & "$" & copie & "$"

        Cells(Target.Row, i).Value = copie
        Cells(Target.Row, i).Copy

        Cells(Target.Row, 2).Select

    End If

End Sub

Bonjour,

Pas sûr d'avoir compris ...

À la fin de la macro > au lieu de Cells(Target.Row, 2).Select > Cells(Target.Row, "Y").Select

ric

Merci, je viens de trouve en meme temps

apres end if J'ai mit : Cells(ActiveCell.Row, "Y").Select

ric