Grouper / Dissocier les images

Sub Macro1()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Group.Select
End Sub

Feuil1.Shapes.SelectAll
Selection.Group

Sub GroupementShapes_Conditionnel()
    Dim Sh As Shape
    Dim Tableau() As String
    Dim i As Integer
    
    'Boucle sur les formes de la feuille active
    For Each Sh In ActiveSheet.Shapes
        'Vérifie si type de l'objet est Image
        If Sh.Type= 13 Then
            i = i + 1
            'Redéfinit la taille du tableau et intègre le nom de la forme.
            ReDim Preserve Tableau(1 To i)
            Tableau(i) = Sh.Name
        End If
    Next
    
    'On sort si le tableau est vide.
    If i = 0 Then Exit Sub
    
    'Regroupe les formes dont le nom se trouve dans le tableau
    Set Sh = ActiveSheet.Shapes.Range(Tableau).Group
    'Renomme le groupe.
    Sh.Name = "NomGroupe"
End Sub

Sub test_ok()
    Dim Sh As Shape, t() As String, i As Long
    For Each Sh In ActiveSheet.Shapes
       If Sh.Type = msoPicture Then
            i = i + 1
            ReDim Preserve t(1 To i)
            t(i) = Sh.Name
        End If
    Next
    If i = 0 Then Exit Sub
Range("A1").Resize(UBound(t)) = Application.Transpose(t)
End Sub

Dim Tableau()