Simplifier une macro

Sub MACRO()

For x = 2 To 11
[COLOR="Red"][B]  Cells(5, x) = Cells(3, x).Value
  Cells(10, x) = Cells(8, x).Value
  Cells(15, x) = Cells(13, x).Value
  Cells(20, x) = Cells(18, x).Value[/B][/COLOR]
  Cells(49, x) = Cells(47, x).Value
  Cells(54, x) = Cells(52, x).Value
  Cells(59, x) = Cells(57, x).Value
  Cells(64, x) = Cells(62, x).Value
  Cells(71, x) = Cells(69, x).Value
  Cells(76, x) = Cells(74, x).Value
  Cells(81, x) = Cells(79, x).Value
  Cells(86, x) = Cells(84, x).Value
Next

For x = 14 To 20
[COLOR="Red"][B]  Cells(5, x) = Cells(3, x).Value
  Cells(10, x) = Cells(8, x).Value
  Cells(15, x) = Cells(13, x).Value
  Cells(20, x) = Cells(18, x).Value[/B][/COLOR]
[COLOR="Blue"][B]  Cells(27, x) = Cells(25, x).Value
  Cells(32, x) = Cells(30, x).Value
  Cells(37, x) = Cells(35, x).Value
  Cells(42, x) = Cells(40, x).Value[/B][/COLOR]
Next

For x = 2 To 9
[COLOR="Blue"][B]  Cells(27, x) = Cells(25, x).Value
  Cells(32, x) = Cells(30, x).Value
  Cells(37, x) = Cells(35, x).Value
  Cells(42, x) = Cells(40, x).Value[/B][/COLOR]
Next

For x = 2 To 7
  Cells(93, x) = Cells(91, x).Value
  Cells(98, x) = Cells(96, x).Value
  Cells(103, x) = Cells(101, x).Value
  Cells(108, x) = Cells(106, x).Value
Next

End Sub

Sub MACRO()

For x = 2 To 11
    For y = 5 To 20 Step 5
        Cells(y, x) = Cells(y - 2, x).Value
    Next
    For y = 49 To 86 Step 5
        Cells(y, x) = Cells(y - 2, x).Value
    Next
Next

For x = 14 To 20
    For y = 5 To 20 Step 5
        Cells(y, x) = Cells(y - 2, x).Value
    Next
    For y = 27 To 42 Step 5
        Cells(y, x) = Cells(y - 2, x).Value
    Next
Next

For x = 2 To 9
    For y = 27 To 42 Step 5
        Cells(y, x) = Cells(y - 2, x).Value
    Next
Next

For x = 2 To 7
    For y = 93 To 108 Step 5
        Cells(y, x) = Cells(y - 2, x).Value
    Next
Next

End Sub