VBA ajouter une commande ?

Bonjour le forum

comment ajouter cette commande à mon code Vba

.PasteSpecial Paste:=xlPasteValues

copier les valeurs seulement

voila le code:

Option Explicit

Dim fr, fc, I, J
Sub Image1_Cliquer()

    Set fr = ActiveSheet
    Set fc = Sheets("Caisse")
    fr.Range("N6:O" & fr.Range("B" & Rows.Count).End(xlUp).Row).Copy fc.Range("A3")
          For I = 3 To fc.Range("B" & Rows.Count).End(xlUp).Row
        For J = 3 To 7
            fc.Cells(I, J) = fc.Cells(2, J) * fc.Cells(I, 2)
        Next J
    Next I

End Sub

Je remercie d'avance

Amicalement

Bonjour

Tu dois décomposer ton instruction :

fr.Range("N6:O" & fr.Range("B" & Rows.Count).End(xlUp).Row).Copy fc.Range("A3")

de cette façon :

fr.Range("N6:O" & fr.Range("B" & Rows.Count).End(xlUp).Row).Copy 
fc.Range("A3").PasteSpecial  xlPasteValues

OK ?

Bye !

Bonsoir à tous

Bonsoir gmb

une réponse très rapide très précise

c'est un plaisir d'être avec des personnes qui aime t'aider

Merci beaucoup pour votre aide

Merci et salutations

zinelamri