bonjour,
sheets("Feuil1").Select
Range("A2:A8").Select ' copie les cellules A2 à A8 de la feuille 1
Selection.Copy
sheets("Feuil2").Select ' et les colle sur la feuille 2 à la meme place
Range("A2:A8").Select
ActiveSheet.Paste
en espérant t'avoir aidé,
fred