Bonjour à tous !

Je suis en train de créer des macros pour un fichier Excel servant de gestion de planning par un système de plaquettes manipulables.
La macro sur laquelle je bute sert à insérer un bouton (une forme rectangulaire nommée "Rectangle 89") dans une autre forme rectangulaire plus grande, et de lui associer un lien hypertexte (qui est contenu dans la Textbox1 de mon userform).
Voici la trame que doit suivre la macro, une fois un grand rectangle (plaquette) sélectionné:

- Affecter le <<grand rectangle>> présélectionné à une variable R1
- Copier Coller du "rectangle 89" dans le grand rectangle (présélectionné)
- Déplacer le résultat du copier coller en bas à droite du grand rectangle
- Affecter le résultat du copier coller à une variable R2
- Associer à R2 le lien hypertexte contenu dans Texbox1.Text
- Grouper R1 et R2
- Sortir de l'userform


Voici le code actuel, qui ne marche donc pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub ok_Click()
 
Dim R1 As Shapes
Dim R2 As Shapes
 
    R1 = ActiveWindow.Selection
    ActiveSheet.Shapes.Range(Array("Rectangle 89")).Select
    Selection.Copy
    ActiveSheet.Paste
    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=TexBox1.Text
    R2 = ActiveWindow.Selection
    Selection.ShapeRange.IncrementTop 164.25
    Selection.ShapeRange.IncrementLeft 120.75
    ActiveSheet.Shapes.Range(Array("R1", "R2")).Select
    Selection.ShapeRange.Group.Select
    UserForm1.Hide
 
End Sub
Je vous remercie d'avance pour votre aide, et reste à disposition