Boucle pour groupement de lignes

Bonjour

Je récupère 6 tableaux identiques sur une feuille excel, ils sont espacés du même nombre de ligne.

Le problème c'est que lorsque je récupère les tableaux, je perds les groupements de ligne !

Je pensais naturellement faire une boucle mais je ne vois pas comment la réaliser.

Je dois répéter 6 fois les mêmes groupements en ajoutant 169 à a, b, c, d ....

exemple pour a

7
176
345
514
683
852

J'ai ce début de code

Sub essai()

Dim numero As Integer

a = 7
b = 19
c = 21
d = 33

Ligne1 = Cells(a, 1).Row
Ligne2 = Cells(b, 1).Row

Ligne3 = Cells(c, 1).Row
Ligne4 = Cells(d, 1).Row


Rows(Ligne1 & ":" & Ligne2).Select
Selection.Rows.Group

Rows(Ligne3 & ":" & Ligne4).Select
Selection.Rows.Group

End Sub

Par avance merci de votre aide