Macro

Bonjour

J'ai une macro dans ma feuille de calcul qui fai que lorsque je mets un montant dans la colonne C, la formule s'applique à la cellule J et par la suite enleve la dite formule donc la cellule J ne change plus , j'aimerais apporter cette même macro à la cellule F aussi donc quand je mets un montant dans la colonne C les formules dans les colonne J et F s'efface après avoir indiqué le résultat , voici ce que j'ai présentement :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Dim Rw As Long
Rw = Target.Row
If Not Intersect(Target, Range("C36:C53")) Is Nothing Then
Range("J" & Rw).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("F" & Rw + 1).Select
Application.CutCopyMode = False
End If
End Sub