Macro en VBA

Bonjour,

je n'arrive pas a simplifié cette macro pour qu'elle ne rendent pas épileptique.

 Range("B16").Select
    Selection.Copy
    Sheets("Devis").Select
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("ENTREE").Select
    Range("C16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Devis").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("ENTREE").Select
    Range("E16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Devis").Select
    Range("A16").Select
    Selection.PasteSpecial Paste:=xlPasteValues

Si vous pouviez m'aidez je vous en serez très reconnaissant!

Merci

Bonjour,

Au début de ta macro rajoutes :

Application.ScreenUpdating = False

et à la fin avant le 'end sub :

Application.ScreenUpdating = True

Cordialement,

bonjour,

tu peux remplacer ton code par celui-ci

Sheets(1).Range("B16").Copy Destination:=Sheets("Devis").Range("D2")
Sheets("ENTREE").Range("C16").Copy Destination:=Sheets("Devis").Range("E2")
Sheets("ENTREE").Range("E16").Copy Destination:=Sheets("Devis").Range("A16")

Magnifique merci a tout les deux !!!