faut vraiment te macher le boulot :
Range("A7" ).Select
Selection.Copy
Sheets("Feuil1" ).Select
Range("A9" ).Select
ActiveSheet.Paste
pour un copier coller complet
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Pour un copier collage spécial, valeurs
30 s pour faire l'exemple et je n'ai pas tapé la moindre ligne de code !
J'espère que tu n'auras pas envie de pisser dans l'après midi, je suis un peu loin pour aller te la tenir !!!