'Declaration des feuilles
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
'Initialisation
Set Sh1 = Worksheets("Feuil1" )
Set Sh2 = Worksheets("Feuil2" )
'Copier
Sh1.Range("A1" ).Copy
'Coller les valeurs
Sh2.Range("D4" ).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sans plus d'info c'est pas facile de t'aider