Faciliter language VB

Bonjour,

Je voudrais faciliter le language suivant pour le rendre plus souple.
Merci
Private Sub Workbook_Open()
' a l'ouverture du fichier
'comparaison entre V1 et W1
If Sheets("repmam").Range("V1").Value <> Sheets("repmam").Range("W1").Value Then
'si difference changement de V1 et W1
' qui entrainera les changements en D8 C8 D7 C7
Sheets("repmam").Range("V1") = Sheets("repmam").Range("W1")
Sheets("repmam").Range("V2") = Sheets("repmam").Range("W2")
Sheets("repmam").Range("V3") = Sheets("repmam").Range("W3")
Sheets("repmam").Range("V4") = Sheets("repmam").Range("W4")
Sheets("repmam").Range("V5") = Sheets("repmam").Range("W5")
Sheets("repmam").Range("V6") = Sheets("repmam").Range("W6")
Sheets("repmam").Range("V7") = Sheets("repmam").Range("W7")
Sheets("repmam").Range("V8") = Sheets("repmam").Range("W8")
Sheets("repmam").Range("V9") = Sheets("repmam").Range("W9")
Sheets("repmam").Range("V10") = Sheets("repmam").Range("W10")
Sheets("repmam").Range("V11") = Sheets("repmam").Range("W11")
Sheets("repmam").Range("V12") = Sheets("repmam").Range("W12")
Sheets("repmam").Range("V13") = Sheets("repmam").Range("W13")
Sheets("repmam").Range("V14") = Sheets("repmam").Range("W14")
Sheets("repmam").Range("V15") = Sheets("repmam").Range("W15")
Sheets("repmam").Range("V16") = Sheets("repmam").Range("W16")
Sheets("repmam").Range("V17") = Sheets("repmam").Range("W17")
Sheets("repmam").Range("V18") = Sheets("repmam").Range("W18")
Sheets("repmam").Range("V19") = Sheets("repmam").Range("W19")
Sheets("repmam").Range("V20") = Sheets("repmam").Range("W20")
Sheets("repmam").Range("V21") = Sheets("repmam").Range("W21")
Sheets("repmam").Range("V22") = Sheets("repmam").Range("W22")
Sheets("repmam").Range("V23") = Sheets("repmam").Range("W23")
Sheets("repmam").Range("V24") = Sheets("repmam").Range("W24")
Sheets("repmam").Range("V25") = Sheets("repmam").Range("W25")
Sheets("repmam").Range("V26") = Sheets("repmam").Range("W26")
Sheets("repmam").Range("V27") = Sheets("repmam").Range("W27")
Sheets("repmam").Range("V28") = Sheets("repmam").Range("W28")
Sheets("repmam").Range("V29") = Sheets("repmam").Range("W29")
Sheets("repmam").Range("V30") = Sheets("repmam").Range("W30")
Sheets("repmam").Range("V31") = Sheets("repmam").Range("W31")
Sheets("repmam").Range("V32") = Sheets("repmam").Range("W32")
Sheets("repmam").Range("V33") = Sheets("repmam").Range("W33")
Sheets("repmam").Range("V34") = Sheets("repmam").Range("W34")
Sheets("repmam").Range("V35") = Sheets("repmam").Range("W35")
'Maintenant les plus values
Sheets("repmam").Range("X1") = Sheets("repmam").Range("Y1")
Sheets("repmam").Range("X2") = Sheets("repmam").Range("Y2")
Sheets("repmam").Range("X3") = Sheets("repmam").Range("Y3")
Sheets("repmam").Range("X4") = Sheets("repmam").Range("Y4")
Sheets("repmam").Range("X5") = Sheets("repmam").Range("Y5")
Sheets("repmam").Range("X6") = Sheets("repmam").Range("Y6")
Sheets("repmam").Range("X7") = Sheets("repmam").Range("Y7")
Sheets("repmam").Range("X8") = Sheets("repmam").Range("Y8")
Sheets("repmam").Range("X9") = Sheets("repmam").Range("Y9")
Sheets("repmam").Range("X10") = Sheets("repmam").Range("Y10")
Sheets("repmam").Range("X11") = Sheets("repmam").Range("Y11")
Sheets("repmam").Range("X12") = Sheets("repmam").Range("Y12")
Sheets("repmam").Range("X13") = Sheets("repmam").Range("Y13")
Sheets("repmam").Range("X14") = Sheets("repmam").Range("Y14")
Sheets("repmam").Range("X15") = Sheets("repmam").Range("Y15")
Sheets("repmam").Range("X16") = Sheets("repmam").Range("Y16")
Sheets("repmam").Range("X17") = Sheets("repmam").Range("Y17")
Sheets("repmam").Range("X18") = Sheets("repmam").Range("Y18")
Sheets("repmam").Range("X19") = Sheets("repmam").Range("Y19")
Sheets("repmam").Range("X20") = Sheets("repmam").Range("Y20")
Sheets("repmam").Range("X21") = Sheets("repmam").Range("Y21")
Sheets("repmam").Range("X22") = Sheets("repmam").Range("Y22")
Sheets("repmam").Range("X23") = Sheets("repmam").Range("Y23")
Sheets("repmam").Range("X24") = Sheets("repmam").Range("Y24")
Sheets("repmam").Range("X25") = Sheets("repmam").Range("Y25")
Sheets("repmam").Range("X26") = Sheets("repmam").Range("Y26")
Sheets("repmam").Range("X27") = Sheets("repmam").Range("Y27")
Sheets("repmam").Range("X28") = Sheets("repmam").Range("Y28")
Sheets("repmam").Range("X29") = Sheets("repmam").Range("Y29")
Sheets("repmam").Range("X30") = Sheets("repmam").Range("Y30")
Sheets("repmam").Range("X31") = Sheets("repmam").Range("Y31")
Sheets("repmam").Range("X32") = Sheets("repmam").Range("Y32")
Sheets("repmam").Range("X33") = Sheets("repmam").Range("Y33")
Sheets("repmam").Range("X34") = Sheets("repmam").Range("Y34")
Sheets("repmam").Range("X35") = Sheets("repmam").Range("Y35")
'=======================Maintenant la MCM====================
Sheets("repmcm").Range("V1") = Sheets("repmcm").Range("W1")
Sheets("repmcm").Range("V2") = Sheets("repmcm").Range("W2")
Sheets("repmcm").Range("V3") = Sheets("repmcm").Range("W3")
Sheets("repmcm").Range("V4") = Sheets("repmcm").Range("W4")
Sheets("repmcm").Range("V5") = Sheets("repmcm").Range("W5")
Sheets("repmcm").Range("V6") = Sheets("repmcm").Range("W6")
Sheets("repmcm").Range("V7") = Sheets("repmcm").Range("W7")
Sheets("repmcm").Range("V8") = Sheets("repmcm").Range("W8")
Sheets("repmcm").Range("V9") = Sheets("repmcm").Range("W9")
Sheets("repmcm").Range("V10") = Sheets("repmcm").Range("W10")
Sheets("repmcm").Range("V11") = Sheets("repmcm").Range("W11")
Sheets("repmcm").Range("V12") = Sheets("repmcm").Range("W12")
Sheets("repmcm").Range("V13") = Sheets("repmcm").Range("W13")
Sheets("repmcm").Range("V14") = Sheets("repmcm").Range("W14")
Sheets("repmcm").Range("V15") = Sheets("repmcm").Range("W15")
Sheets("repmcm").Range("V16") = Sheets("repmcm").Range("W16")
Sheets("repmcm").Range("V17") = Sheets("repmcm").Range("W17")
Sheets("repmcm").Range("V18") = Sheets("repmcm").Range("W18")
Sheets("repmcm").Range("V19") = Sheets("repmcm").Range("W19")
Sheets("repmcm").Range("V20") = Sheets("repmcm").Range("W20")
Sheets("repmcm").Range("V21") = Sheets("repmcm").Range("W21")
Sheets("repmcm").Range("V22") = Sheets("repmcm").Range("W22")
Sheets("repmcm").Range("V23") = Sheets("repmcm").Range("W23")
Sheets("repmcm").Range("V24") = Sheets("repmcm").Range("W24")
Sheets("repmcm").Range("V25") = Sheets("repmcm").Range("W25")
Sheets("repmcm").Range("V26") = Sheets("repmcm").Range("W26")
Sheets("repmcm").Range("V27") = Sheets("repmcm").Range("W27")
Sheets("repmcm").Range("V28") = Sheets("repmcm").Range("W28")
Sheets("repmcm").Range("V29") = Sheets("repmcm").Range("W29")
Sheets("repmcm").Range("V30") = Sheets("repmcm").Range("W30")
Sheets("repmcm").Range("V31") = Sheets("repmcm").Range("W31")
Sheets("repmcm").Range("V32") = Sheets("repmcm").Range("W32")
Sheets("repmcm").Range("V33") = Sheets("repmcm").Range("W33")
Sheets("repmcm").Range("V34") = Sheets("repmcm").Range("W34")
Sheets("repmcm").Range("V35") = Sheets("repmcm").Range("W35")
'Maintenant les plus values MCM*****************************
Sheets("repmcm").Range("X1") = Sheets("repmcm").Range("Y1")
Sheets("repmcm").Range("X2") = Sheets("repmcm").Range("Y2")
Sheets("repmcm").Range("X3") = Sheets("repmcm").Range("Y3")
Sheets("repmcm").Range("X4") = Sheets("repmcm").Range("Y4")
Sheets("repmcm").Range("X5") = Sheets("repmcm").Range("Y5")
Sheets("repmcm").Range("X6") = Sheets("repmcm").Range("Y6")
Sheets("repmcm").Range("X7") = Sheets("repmcm").Range("Y7")
Sheets("repmcm").Range("X8") = Sheets("repmcm").Range("Y8")
Sheets("repmcm").Range("X9") = Sheets("repmcm").Range("Y9")
Sheets("repmcm").Range("X10") = Sheets("repmcm").Range("Y10")
Sheets("repmcm").Range("X11") = Sheets("repmcm").Range("Y11")
Sheets("repmcm").Range("X12") = Sheets("repmcm").Range("Y12")
Sheets("repmcm").Range("X13") = Sheets("repmcm").Range("Y13")
Sheets("repmcm").Range("X14") = Sheets("repmcm").Range("Y14")
Sheets("repmcm").Range("X15") = Sheets("repmcm").Range("Y15")
Sheets("repmcm").Range("X16") = Sheets("repmcm").Range("Y16")
Sheets("repmcm").Range("X17") = Sheets("repmcm").Range("Y17")
Sheets("repmcm").Range("X18") = Sheets("repmcm").Range("Y18")
Sheets("repmcm").Range("X19") = Sheets("repmcm").Range("Y19")
Sheets("repmcm").Range("X20") = Sheets("repmcm").Range("Y20")
Sheets("repmcm").Range("X21") = Sheets("repmcm").Range("Y21")
Sheets("repmcm").Range("X22") = Sheets("repmcm").Range("Y22")
Sheets("repmcm").Range("X23") = Sheets("repmcm").Range("Y23")
Sheets("repmcm").Range("X24") = Sheets("repmcm").Range("Y24")
Sheets("repmcm").Range("X25") = Sheets("repmcm").Range("Y25")
Sheets("repmcm").Range("X26") = Sheets("repmcm").Range("Y26")
Sheets("repmcm").Range("X27") = Sheets("repmcm").Range("Y27")
Sheets("repmcm").Range("X28") = Sheets("repmcm").Range("Y28")
Sheets("repmcm").Range("X29") = Sheets("repmcm").Range("Y29")
Sheets("repmcm").Range("X30") = Sheets("repmcm").Range("Y30")
Sheets("repmcm").Range("X31") = Sheets("repmcm").Range("Y31")
Sheets("repmcm").Range("X32") = Sheets("repmcm").Range("Y32")
Sheets("repmcm").Range("X33") = Sheets("repmcm").Range("Y33")
Sheets("repmcm").Range("X34") = Sheets("repmcm").Range("Y34")
Sheets("repmcm").Range("X35") = Sheets("repmcm").Range("Y35")
end if
end sub