Groupe sous Excel à masquer/afficher

Bonjour

Je suis sous Excel, je voudrais simplement ajouter un bouton sur ma feuille qui masque/affiche les détails des groupes des lignes séléctionnées (comme le fait  déjà les commandes Données, Grouper et créer un plan, masquer et afficher les détails).

J'ai tenté de faire un enregistrement de macro pour obtenir le code mais il me donne

    ExecuteExcel4Macro "SHOW.DETAIL(1,24,TRUE,,21)"
    ExecuteExcel4Macro "SHOW.DETAIL(1,12,TRUE,,8)"

ce qui suppose que les groupes doivent être définis auparavant et que la feuille ne peut pas être modifiée sinon la macro ne fonctionne plus...

est ce que vous avez une idée?

Merci

Merci bien!
solution simple et efficace... parfait

'Il faut que la cellule active soit sur la ligne juste au dessus du groupe
Sub AfficherGroup()
Dim rngRegion As Range
Dim intDerniereLigne As Integer
Set rngRegion = ActiveCell.CurrentRegion
intDerniereLigne = rngRegion.Rows.Count
If intDerniereLigne > 2 Then rngRegion.Rows(intDerniereLigne).ShowDetail = True
End Sub

Sub MasquerGroup()
Dim rngRegion As Range
Dim intDerniereLigne As Integer
Set rngRegion = ActiveCell.CurrentRegion
intDerniereLigne = rngRegion.Rows.Count
If intDerniereLigne > 2 Then rngRegion.Rows(intDerniereLigne).ShowDetail = False
End Sub