Sub Rectangle1_Cliquer()
ActiveSheet.Shapes("Rectangle à coins arrondis 6").Visible = True
ActiveSheet.Shapes("Rectangle à coins arrondis 6").ZOrder 0
End Sub
Sub Rectangle2_Cliquer()
ActiveSheet.Shapes("Rectangle à coins arrondis 3").Visible = True
ActiveSheet.Shapes("Rectangle à coins arrondis 3").ZOrder 0
End Sub