Sub Sauvegarde_dans_nouvel_onglet()
Sheets("Matrice").Select
Sheets("Matrice").Copy After:=Sheets(1)
Sheets("Matrice (2)").Select
' comment automatiser le nom en fonction du résultat en cellule O2 de la feuille Matrice?
Sheets("Matrice (2)").Name = "Sem 46"
Sheets("Sem 46").Select
ActiveSheet.Shapes.Range(Array("Group 16")).Select
Selection.Cut
Range("A1").Select
End Sub