Bonjour Xorsankukai,
ça marche pas, je dois l'utiliser entre 2 fichier différent, penses-tu que cela peux poser encore plus de problème ?
J'ai écris ça comme çà
Windows("Fichier1").Activate
Sheets("feuil1").Select
Range("A30:B31").Select
Selection.Copy
Windows("Fichier2").Activate
Sheets("feuil2").Select
Range("A28:B29").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Cordialement