Macro un peu longue

Bonjour, je voudrais savoir s'il est possible de réduire un peu cette macro car je n'y arrive pas !

Sub huit_op_pré()
' copier les objets
    Sheets("8 op").Select
    ActiveSheet.Shapes.Range(Array("Groupe 07", "Groupe 08", "Rectangle 08")).Select
    Selection.Copy
    Range("CJ48").Select
    Sheets("Semaine").Select
    Range("D7").Select
    ActiveSheet.Paste
    With Selection.ShapeRange
    .IncrementLeft -264
    .ZOrder msoSendToBack
    End With
    Range("CJ48").Select

'copier les couleurs pour les numeros d op
    Sheets("8 op").Select
    Range("AN57:BI57").Copy
    Sheets("semaine").Select
    Range("D51").Select
    ActiveSheet.Paste
    Range("B1").Select

End Sub

Merci d'avance

Bonsoir

Peut etre cela?

Sub huit_op_pré()
' copier les objets
 Sheets("8 op").Shapes.Range(Array("Groupe 07", "Groupe 08", "Rectangle 08")).Copy _
 Destination:=Sheets("Semaine").Range("D7")
'la je ne sais pas ce que tu souhaite faire
' With Selection.ShapeRange
' .IncrementLeft -264
' .ZOrder msoSendToBack
' End With
'copier les couleurs pour les numeros d op
 Sheets("8 op").Range("AN57:BI57").Copy _
 Destination:=Sheets("semaine").Range("D51")
 Range("B1").Select
End Sub

With Selection.ShapeRange
' .IncrementLeft -264
' .ZOrder msoSendToBack
' End With

C est pour deplacer le groupe d objets vers la gauche et mettre ce groupe d'objet en arrière plan