Copier coller

Bonjour,

j'ai fait une macro pour copier coller des cellules elle est longue a exécuter autant que pour l'écrire lol
je pense qu'avec une macro relative ça devrait être plus rapide mais je ne sais pas l'écrire je vous la recopie ici
merci de votre aide

Sub copier_coller()
'
' copier_coller Macro
'
Application.ScreenUpdating = False
'
Range("E38").Copy
Range("B37").PasteSpecial Paste:=xlPasteValues
Range("I38").Copy
Range("F37").PasteSpecial Paste:=xlPasteValues
Range("M38").Copy
Range("J37").PasteSpecial Paste:=xlPasteValues
Range("Q38").Copy
Range("N37").PasteSpecial Paste:=xlPasteValues
Range("U38").Copy
Range("R37").PasteSpecial Paste:=xlPasteValues
Range("Y38").Copy
Range("V37").PasteSpecial Paste:=xlPasteValues
Range("AC38").Copy
Range("Z37").PasteSpecial Paste:=xlPasteValues
Range("AG38").Copy
Range("AD37").PasteSpecial Paste:=xlPasteValues
Range("AK38").Copy
Range("AH37").PasteSpecial Paste:=xlPasteValues
Range("AO38").Copy
Range("AL37").PasteSpecial Paste:=xlPasteValues
Range("AS38").Copy
Range("AP37").PasteSpecial Paste:=xlPasteValues
Range("AW38").Copy
Range("AT37").PasteSpecial Paste:=xlPasteValues
Range("BA38").Copy
Range("AX37").PasteSpecial Paste:=xlPasteValues
Range("BE38").Copy
Range("BB37").PasteSpecial Paste:=xlPasteValues
Range("BI38").Copy
Range("BF37").PasteSpecial Paste:=xlPasteValues
Range("BM38").Copy
Range("BJ37").PasteSpecial Paste:=xlPasteValues
Range("BQ38").Copy
Range("BN37").PasteSpecial Paste:=xlPasteValues
Range("BU38").Copy
Range("BR37").PasteSpecial Paste:=xlPasteValues
Range("BY38").Copy
Range("BV37").PasteSpecial Paste:=xlPasteValues
Range("CC38").Copy
Range("BZ37").PasteSpecial Paste:=xlPasteValues
Range("CG38").Copy
Range("CD37").PasteSpecial Paste:=xlPasteValues
Range("CK38").Copy
Range("CH37").PasteSpecial Paste:=xlPasteValues
Range("CO38").Copy
Range("CL37").PasteSpecial Paste:=xlPasteValues
Range("CS38").Copy
Range("CP37").PasteSpecial Paste:=xlPasteValues
Range("CW38").Copy
Range("CT37").PasteSpecial Paste:=xlPasteValues
Range("DA38").Copy
Range("CX37").PasteSpecial Paste:=xlPasteValues
Range("DE38").Copy
Range("DB37").PasteSpecial Paste:=xlPasteValues
Range("DI38").Copy
Range("DF37").PasteSpecial Paste:=xlPasteValues
Range("DM38").Copy
Range("DJ37").PasteSpecial Paste:=xlPasteValues
Range("DQ38").Copy
Range("DN37").PasteSpecial Paste:=xlPasteValues
Range("DU38").Copy
Range("DR37").PasteSpecial Paste:=xlPasteValues
Range("DY38").Copy
Range("DV37").PasteSpecial Paste:=xlPasteValues
Range("EC38").Copy
Range("DZ37").PasteSpecial Paste:=xlPasteValues
Range("EG38").Copy
Range("ED37").PasteSpecial Paste:=xlPasteValues
Range("EK38").Copy
Range("EH37").PasteSpecial Paste:=xlPasteValues
Range("EO38").Copy
Range("EL37").PasteSpecial Paste:=xlPasteValues
Range("B1").Select
Application.ScreenUpdating = True
End Sub