XL 2013 Grouper des shapes dans une range par VBA

Bonjour a tous et merci pour votre aide ,

Je souhaiterai grouper un ensemble de shapes present dans une range definie.. Voici le code VBA que j'ai créé mais celui ci ne fonctionne pas :

Dim emplacement2 As Range
Set emplacement2 = Worksheets("Graph").Range(Worksheets("Graph").Cells(10, 1), Worksheets("Graph").Cells(30, 13))

For Each Forme In f1.Shapes
If Forme.Name <> "Button 2" Then
If Forme.Name <> "Button 38" Then
Set xshaperg = Worksheets("Graph").Range(Forme.TopLeftCell.Address & ":" & Forme.BottomRightCell.Address)
If Not Intersect(emplacement2, xshaperg) Is Nothing Then
Forme.Select

End If
End If
End If
Next Forme
Selection.Group

en fait je n'arrive pas a tous les selectionner pour les grouper ensuite..
merci de votre aide
cordialemeent