Bonjour à tous !

Malgrès quelques recherches et pas mal d'essais, je reste bloqué sur un problème.

Je voudrais, dans un même classeur, copier une plage de cellules "formatées" d'une feuille à une autre. Cette plage contient des formes (shapes), des celulles fusionnées et du texte, il s'agit en fait d'un formulaire qui sera édité après copie.

Le problème est que le seul moyen que j'ai trouvé pour garder la mise en forme est:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Sheets(1).Select
Rows("1:48").Select
Selection.Copy
Sheets(2).Select
ActiveSheet.Paste Destination:=Worksheets(2).Range("A4")
C'est moche, je préfèrerais utiliser la methode d'instance mais malgrès mes essais, la hauteur des lignes et la copie des shapes ne sont pas prise en compte

Voici un exemple d'essai (repris d'un post sur ce forum):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Dim Mdl As Range
Dim Dest as Range
Set Mdl = Worksheets("Mdl").Range("A1:P48")
Set Dest = Worksheets("Dest").Range("A4")
Mdl.Copy
Dest.PasteSpecial Paste:=xlPasteFormats
Quelqu'un aurait la bonne syntaxe ?

Merci d'avance !