Insérer une forme automatique

Sub Grouper()
Dim s As Shape
On Error Resume Next
Feuil4.Activate
For Each s In ActiveSheet.Shapes
  s.Ungroup
Next
For Each s In ActiveSheet.Shapes
  If s.Name Like "SP-*" Or s.Name Like "Rectangle*" Then s.Select False
Next
Selection.ShapeRange.Group.Name = "Groupe1" 'groupage
ActiveCell.Activate
End Sub

Sub Degrouper()
On Error Resume Next 'si la Shape n'existe pas
ActiveSheet.Shapes("Groupe1").Ungroup
End Sub

Private Sub CommandButton1_Click()
If ComboBox1 = ComboBox2 Then Exit Sub
[IV1].Copy [IV1] 'vide le presse-papiers
On Error Resume Next 'si la Shape n'existe pas
Sheets(ComboBox2.Text).Shapes("Groupe1").Delete 'RAZ
With Sheets(ComboBox1.Text).Shapes("Groupe1")
  .Copy
  Application.Goto Sheets(ComboBox2.Text).[E4], True
  Sheets(ComboBox2.Text).Paste
  .Parent.[K1].MergeArea.Copy Sheets(ComboBox2.Text).[K1]
  Sheets(ComboBox2.Text).[K1].Select
End With
End Sub