Groupage désactivé

Bonjour, j'essaye d'utiliser une carte de France interactive. Je n'ai pas changé grand chose sur les macros d'origine mais j'obtient ce message d'erreur :

"Le groupage est désactivé pour les formes sélectionnées"

Option Explicit

'---------------------------------------------------------------------------------------------------------
' Importation du fichier SVG des départements et création des formes libres
'---------------------------------------------------------------------------------------------------------

Function CreateShapes()

Dim oSheet As Excel.Worksheet ' Feuille de travail
Dim lLine As Long ' Compteur de lignes
Dim lCoord As String ' Coordonnées du département
Dim lCoordArray As Variant ' Coordonnées du département en tableau
Dim lCptCoord As Long ' Compteur pour parcourir les coordonnées
Dim lNbShape As Long ' Nombre de formes créées
Dim lShapeRange() ' Tableaux des noms de formes créées pour fonction Group
Dim loFreeformBuilder As Excel.FreeformBuilder 'Constructeur de forme libre

' Feuille de données
Set oSheet = Sheets("Departements")

' Parcourt la feuille des données
For lLine = 1 To 96

    ' Coordonnées
    lCoord = oSheet.Cells(lLine, 1)

    ' Mise en forme des coordonnées
    lCoord = Replace(lCoord, ",", " ")

    ' Crée un tableau à partir de la chaine de caractres
    lCoordArray = Split(lCoord, " ")

    ' Initialise le compteur
    lCptCoord = LBound(lCoordArray)

    Do

        Select Case lCoordArray(lCptCoord)

        Case "M" ' Point de départ
            ' Crée un constructeur de "forme libre" pour le département courant sur la feuille oSheet
            Set loFreeformBuilder = oSheet.Shapes.BuildFreeform(msoEditingCorner, _
            Val(lCoordArray(lCptCoord + 1)) * 10, Val(lCoordArray(lCptCoord + 2)) * 10)
            lCptCoord = lCptCoord + 3

        Case "L" ' Segment
            loFreeformBuilder.AddNodes msoSegmentLine, msoEditingAuto, _
            Val(lCoordArray(lCptCoord + 1)) * 10, Val(lCoordArray(lCptCoord + 2)) * 10
            lCptCoord = lCptCoord + 3

        Case "C" ' Courbe
            loFreeformBuilder.AddNodes msoSegmentCurve, msoEditingCorner, _
            Val(lCoordArray(lCptCoord + 1)) * 10, Val(lCoordArray(lCptCoord + 2)) * 10, _
            Val(lCoordArray(lCptCoord + 3)) * 10, Val(lCoordArray(lCptCoord + 4)) * 10, _
            Val(lCoordArray(lCptCoord + 5)) * 10, Val(lCoordArray(lCptCoord + 6)) * 10
            lCptCoord = lCptCoord + 7

        Case "z" ' Fin de la forme

            ' Convertit le Constructeur en Forme
            With loFreeformBuilder.ConvertToShape

                ' Identifiant du département
                .Name = oSheet.Cells(lLine, 2)

                ' Incrémente le nombre de formes créées
                lNbShape = lNbShape + 1

                ' Redimensionne le tableau de formes créées
                ReDim Preserve lShapeRange(1 To lNbShape)

                ' Ajoute le nom de la forme au tableau pour groupement
                lShapeRange(lNbShape) = .Name

            End With

            ' Libre l'objet constructeur

            Set loFreeformBuilder = Nothing
            ' Sort de la boucle de traitement des coordonnées

            Exit Do

        End Select
    Loop
Next
' Groupe les départements dans une forme
With oSheet.Shapes.Range(lShapeRange).Group
    .Name = "CarteFrance"
    .ScaleHeight 0.05, msoFalse
    .ScaleWidth 0.05, msoFalse
    .LockAspectRatio = msoTrue
End With

End Function