Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range, dl%
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
Set rng = Range(Target, Target.Offset(0, 13))
With Sheets("journal des mouvements") 'journal des mouvements
dl = .Range("a65536").End(xlUp).Row + 1
rng.Copy .Range("a" & dl)
On Error Resume Next
.Range("d" & dl).Comment.Delete
ActiveWorkbook.Save
On Error GoTo 0
End With
End Sub