Code pour copier coller

Bonjour
Je cherche un code pour copier à partir de A2 à E une plage de cellules qui varie dans la feuil21 et pour coller en feuil23 en A40
Pour info la feuil21 est nommé IMPORT et la feuil23 envoi mail
Merci

Bonjour,

Sans Copier/Coller :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Test()   Dim Plage As Range   'plage en colonne A de la Feuille "Feuil1" With Worksheets("IMPORT")   Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 5).End(xlUp))   End With   With Worksheets("envoi mail")   .Range(.Cells(40, 1), .Cells(39 + Plage.Rows.Count, Plage.Columns.Count)).Value = Plage.Value   End With   End Sub

---

Bonjour
mais un petit souci il ne prend pas en compte le format ex font la couleur et bordure

Alors, dans ce case c'est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test()   Dim Plage As Range   'plage en colonne A de la Feuille "Feuil1" With Worksheets("IMPORT")   Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 5).End(xlUp))   End With   Plage.Copy Worksheets("envoi mail").Range("A40")   End Sub

---

Bonjour
Merci beaucoup c'est top
par contre j'avais ce code le problème le lendemain ca ne fonctionne plus
une bonne journée

Code:

---

1 2 3 4 5 6 7

Sub test() With Sheets(21) DerL = Range("e65536").End(xlUp).Row Range("a2:e" & DerL).Copy Sheets(23).Range("a40") End With End Sub

---

Bonjour,

revoit l'utilisation de With... comme tu l'utilise il ne sert à rien.... essai :f1: