bonjour,
c'est une question qu'on ne peut pas demander ici, c'est contre les principes du site.
Mais, en premier vue, les macros ne sont pas si spectaculaires, genre niveau débutant...
Sub R_1()
Feuil6.Shapes("R_1").Copy
ActiveSheet.Activate
ActiveSheet.Select
ActiveSheet.Paste
End Sub
Sub R_2()
Feuil6.Shapes("R_2").Copy
ActiveSheet.Activate
ActiveSheet.Select
ActiveSheet.Paste
End Sub
Sub R_3()