Sub Grouper()
Dim DerLig%, L%
Application.ScreenUpdating = False ' Figer l'écran pour être plus rapide
Cells.ClearOutline ' Supprimer tous les groupements existant
DerLig = Sheets("STEPS 2B").Range("I65500").End(xlUp).Row ' Calcul de le dernière ligne de la feuille
L = 3 ' L : N° de ligne, init à 3 car on a 1 en L=2
While L < DerLig ' Pour toutes les lignes
Ldébut = L ' De la ligne de début
While Cells(L, "I") <> 1 ' Tant qu'on n'a pas 1 en colonne I
L = L + 1 ' On incrémente le N° de ligne
Wend
Rows(Ldébut - 1 & ":" & L - 2).Rows.Group ' On groupe les lignes de Ldébut à L
L = L + 1 ' On passe à la ligne suivante
Wend ' Et on continue tant que pas fini
ActiveSheet.Outline.ShowLevels RowLevels:=1 ' On affiche la feuille groupée
End Sub
Sub Dégrouper()
Application.ScreenUpdating = False ' Figer l'écran pour être plus rapide
Cells.ClearOutline ' Supprimer tous les groupements existant
End Sub