VBA- faire un copy puis multipaste

Bonjour,

Je suis debutant en VBA et j'ai besoin de faire une macro permettant de copier une selection dont j'ai donne le nom: valoclosingMX vers deux autres feuilles dans des selections dont j ai donne le nom FvaloclosingMX et GvaloclosingMX.
Pour cela j ai defini mon copier coller comme ci dessous:

Code:

---

1 2 3 4 5 6 7 8 9

Sub CopyPasteValue(ByRef source As Range, ByRef Target As Range) source.Worksheet.Activate source.Copy Target.Worksheet.Activate Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False   End Sub

---

Puis ensuite je bloque, je n arrive pas a definir plusieurs range de target :s Je n'arrive qu a copier ma selection dans une seule feuille via le sub ci dessous:

Code:

---

1 2 3 4 5

Sub ValoclosingMX() Call CopyPasteFormat(Range("valoClosingMX"), Range("FvaloclosingMx")) Call CopyPasteValue(Range("valoClosingMX"), Range("FvaloclosingMx"))   End Sub

---

Si quelqu'un a une methode pour m'aider je le remercie d'avance,

Bonjour,

essaie avec la ligne suivante APRES tous les PASTE.

Code:

---

Application.CutCopyMode = False

---

car, comme le dit l'aide :

Citation:

---

Application.CutCopyMode=False ou Application.CutCopyMode=True équivaut à l'appui sur la touche Echap (annulation du mode Copier ou Coller, disparition des pointillés).

---