Copie coller à la bonne place

Bonjour,

J'ai fait une macro cf. ci-dessous qui copie une cellule dans une autre.

Je voudrais modifier cette macro de façon à remplacer la copie vers une cellule fixe D8 vers la cellule selectionnée par ma souris.

Pouvez m'aider ?

Private Sub CommandButton1_Click()
 Range("B1").Select
    Selection.Copy
    Range("D8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "[$-40C]dd-mmm-yy;@"
End Sub

Bonjour,

Private Sub CommandButton1_Click()
    Range("B1").Copy
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveCell.NumberFormat = "[$-40C]dd-mmm-yy;@"
End Sub

ou sans bouton, avec un double clic

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Range("B1").Copy
    Target.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Target.NumberFormat = "[$-40C]dd-mmm-yy;@"
End Sub

Bonne journée

Claude.

Merci ! Excellent !