Grouper les lignes k à k+5 dans une boucle for

Bonjour à tous,

J'ai une question de formulation : comment grouper les lignes k à k+5 dans une boucle for

For k = 1 To rgcell.Rows.Count
    If (Mod(k - 1, 5) = 0) Then
        Rows("k:k+5").Group
End if
Next k 

J'imagine que c'est une question d'écriture, j'ai cherché des exemple sur le fofo mais je n'ai pas trouvé,

J'ai essayé aussi:

Rows(k:k+5).Group

Rows("k:k+5").select

selection.rows.group

et bien d'autres...

Enfin bref, je ne trouve pas la bonne syntaxe ...

J'ai trouvé.

Bonjour,

[EDIT... trop tard mais cela peut intéresser d'autres personnes, d'autre part, ta trouvaille pourrait être utile aux autres lecteurs donc je te propose de la partager]

tu n'as besoin ni de boucle ni de modulo pour ce type d'application, tu as seulement besoin de connaitre la 1ere ligne de la plage que tu souhaites grouper (au passage, la syntaxe pour le calcul du modulo est : k Mod 5 pour ton cas de figure)

Range(ActiveCell, ActiveCell.Offset(4, 0)).EntireRow.Rows.Group

ou

ActiveCell.Resize(5, 1).EntireRow.Rows.Group

à adapter en fonction de tes besoins.