XL 2010 coller juste les valeurs

Sub CopierCollerToutActions()
'
' Macro1 Macro

Dim WsC As Worksheet
Dim T, Plages
Dim i As Long, j As Long
Dim P1 As String, P2 As String, P3 As String
    Set WsC = Workbooks("Processus.xlsm").Worksheets("2. Actions")
    P1 = "E2:X4"
    P2 = "E5:X5"
    P3 = "C6:X107"
    Plages = Array(P1, P2, P3)
    For j = 0 To UBound(Plages)
        T = Split(Range(Plages(j)).Address, ",")
        For i = 0 To UBound(T)
            Sheets("2. Actions").Range(T(i)).Copy WsC.Range(T(i))
        Next i
    Next j
End Sub