Macro copier coller valeur d'une cellule voisine

Bonjour,

J'ai une feuille appelée registre avec des valeurs dans la colonne A

J'aimerais :

Lorsque je double clique sur la cellule J8 : cela copie la valeur de la cellule A8 dans la feuille "Prog" cellule B2

Lorsque je double clique sur la cellule P9 cela copie la valeur de la cellule A9 dans la feuille "Prog" cellule B2

Lorsque je double clique sur la cellule P10 cela copie la valeur de la cellule A10 dans la feuille "Prog" cellule B2

Bonjour,

Teste ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("P8:P100")) Is Nothing Then
        Sheets("Prog").Range("B2") = Cells(Target.Row, 1)
    End If
End Sub

Cela fonctionne parfaitement

Merci beaucoup

Bonne week end