macro plus simple

[nat]

je vous donne ma macro
je cherche a faire plus simple
merci davance

Sheets("feuil1").Range("E36").Copy
Sheets("feuil3").Range("B14").PasteSpecial Paste:=xlPasteValues
Sheets("feuil1").Range("E38").Copy
Sheets("feuil3").Range("B12").PasteSpecial Paste:=xlPasteValues
Sheets("feuil1").Range("E40").Copy
Sheets("feuil3").Range("B10").PasteSpecial Paste:=xlPasteValues
Sheets("feuil1").Range("E42").Copy
Sheets("feuil3").Range("B8").PasteSpecial Paste:=xlPasteValues
Sheets("feuil1").Range("E44").Copy
Sheets("feuil3").Range("B6").PasteSpecial Paste:=xlPasteValues
Sheets("feuil1").Range("E46").Copy
Sheets("feuil3").Range("B4").PasteSpecial Paste:=xlPasteValues

merci

 

[FabriceLeManuzien]

Bonsoir,


Sheets("Feuil3").Range("B14").Value = Sheets("Feuil1").Range("E36").Value


Etc...



Fabrice

 

[myDearFriend]

Bonsoir nat,
Salut Fabrice,


Je me permets de surenchérir :

   Dim C As Byte
   For C = 36 To 46 Step 2
      Sheets("Feuil3").Cells(50 - C, 2).Value = Sheets("Feuil1").Cells(C, 5).Value
   Next C


Cordialement.

Didier_mDF