copier/coller valeurs et commentaires uniquement. pas les formules

[pascal21]

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

BONSOIR à tous
ce code copie dans une autre feuille la ligne dont la cellule de la colonne A est cliquée
par contre j'aimerais que çà ne recopie que les valeurs et les commentaires qui sont dans les cellules copiées
d'habitude j'y arrive mais là le code n'est pas de moi (trop compliqué pour moi) et je ne vois pas où et avec quelle syntaxe rajouter l'instruction que je souhaite
en faite dans les lignes à recopier ,je n'ai qu'une seule formule en colonne H et c'est pour cela que je souhaite cette transformation
merci de votre aide

 

[pascal21]

Re : copier/coller valeurs et commentaires uniquement. pas les formules

bonjour et merci jean marcel
çà fonctionne