copier un range d'unefeuille à une autre

Bonjour,

Comme le dit le sujet, je souhaite copier un range d'une feuille à une autre, mais en supprimant la feuille source avant de mettre les données sur la feuille destination.

J'ai essayé ceci:

Code:

---

1 2 3 4 5

Dim data as Variant set data = feuille1.range("A1:B2") feuille1.delete feuille2.range("A1:B2") = data.value

---

Mais apparement l'objet variant n'est qu'une référence vers les données de la feuille.

Donc ma question est de savoir s'il est possible de "cloner" les données afin d'être disponibles après la suppression de la feuille source.

Merci.

Code:

---

1 2 3 4 5 6 7 8

Sub Test() Dim Data As Variant Sheets("feuil1").Select Range("a1:b2").Select Data = Range("a1:b2") ActiveWindow.SelectedSheets.Delete Sheets("feuil2").Select Range("a1:b2") = Data

---