Dégrouper les lignes avant fermeture

Bonjour le forum,

J'aimerais qu'à la fermeture du fichier les lignes groupées soient dégroupées.

Le code que j'ai rentré ne marche pas :/

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim C As Integer
Dim I As Long

With Sheets("DStheorique")
    C = Cells(.Rows.Count, "A9").End(xlUp).Row
    For I = 1 To C
     If Rows(C) = Group Then
     Rows(C) = Ungroup
     End If
    Next I
End With
End Sub

Si vous avez des idées

Merci de votre aide

Bonjour,

çà veut dire quoi groupé, fusionné ?

t'aurais pas un fichier exemple.

merci.

Si

Je vous joints un fichier d'exemple

Merci

voilà un début de solution, je pense.

Sub dissocier()

    I = Range("A" & Rows.Count).End(xlUp).Row
    Rows("1:" & I + 2).Select
    Selection.EntireRow.Hidden = False

End Sub

ReBonjour,

Merci de ta réponse mais ce n'est pas ce que je souhaite.

Je ne souhaite pas modifier les boutons "grouper" ou "dissocier", ils fonctionnent très bien.

Je souhaite juste que si des cellules ont été groupées lorsqu'on ferme le fichier elles se dégroupent automatiquement.