Recopier cellule dans une autre feuille

Bonjour,

J'ai crée un fichier avec 2 feuilles : devis et base.

Par un double clic dans la cellule choisie de la colonne M (feuille base), la valeur de la dite cellule se reporte dans la colonne A.

J'aimerais que cette action se fasse, mais dans la colonne A de la feuille devis .

Merci de bien vouloir m'aider .

Feever

Ci-joint fichier MOMO pour informations.

Bonjour

Essaye :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Range("codeproduit"), Target) Is Nothing Then

        ActiveCell.Copy
        Sheets("Devis").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

End If
End Sub

Amicalement

Nad

Je te remercie, ça marche.

Autre question sur la lancée :

serait-il possible de faire la même démarche avec plusieurs colonnes (7) : exemple de M à S ?