Formule "=" tableau recapitulatif !

Option Explicit
Sub Transpose()
    Range("C6:C12").Copy
    Range("B2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("E11:E12").Copy
    Range("I2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("D13").Copy
    Range("K2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("A53").Copy
    Range("B4").PasteSpecial Paste:=xlPasteValues
    Range("A45").Copy
    Range("C4").PasteSpecial Paste:=xlPasteValues
    Range("A41").Copy
    Range("D4").PasteSpecial Paste:=xlPasteValues
    Range("A43").Copy
    Range("E4").PasteSpecial Paste:=xlPasteValues
    Range("A45").Copy
    Range("F4").PasteSpecial Paste:=xlPasteValues
    Range("A49").Copy
    Range("I4").PasteSpecial Paste:=xlPasteValues
    Range("A1").Select
    Application.CutCopyMode = False
End Sub