Reduire macro copier coller

bonjour

j'ai enregistrer une macro par excel.

Avec le peu de connaissance VBA je voudrais la réduire macro mais cela ne fonctionne pas.

J'ai essayé de regrouper toutes les cellules à copier vers cette nouvelle feuille

J'ai tappé

Windows("planning_A2 IDE base.xlsm").Activate

Range("C6:I8,c11:i13,c16:i18,c24:i26,c28:i29,c32:i33").Select

Selection.Copy

soit la selection à copier

vers

Windows("A2 macro hebdo1.xlsm").Activate

et j'ai remplace toutes les lignes

par

Range ("e6,e15,e24,e34,e43,e51").select

Activesheet.paste

J'ai également essayé les lieux ou coller

Range("e6:k8,e15:k17,e24:k26,e34:k36,e43,k44,e51:k52")

sachant que je copie c6:i8 pour coller vers e6:k8, c11:i13 vers e15:k17 et ainsi de suite.

merci de votre aide

cordialement

Bonjour

Ci-après la macro de ton fichier, un peu simplifiée :

Sub Miseajour_AS()
'
' Miseajour_AS Macro
'
'
    Application.WindowState = xlNormal
    Windows("planning_A2 2015.xlsm").Activate

    Range("C6:I11").Copy Range("E9")
    Range("C18:I23").Copy Range("E18")
    Range("C30:I35").Copy Range("E27")
    Range("C45:I50").Copy Range("E37")
    Range("C55:I60").Copy Range("E45")
    Range("C65:I70").Copy Range("E53")

    Range("E9:K14,E18:K23,E27:K32,E37:K42,E45:K50,E53:K58").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    ActiveWindow.LargeScroll Down:=-1
    Range("E5").Select
End Sub

Bye !

Bonjour,

Merci

gmb vous êtes toujours aussi efficace

cordialement