bonjour
dans ton fichier il n'y aucunes données dans tes onglets a regrouper....
voici cependant un morceau de code qui test la couleur de onglets (en fonction des couleurs dispo dans ton fichier) je te laisse faire le nécessaire ensuite....
fred
Sub test_couleur_onlget()
For i = 1 To Sheets.Count
If Sheets(i).Tab.Color = 5287936 Then 'vert
'c'est une feuille verte faire le code...
MsgBox "feuille verte N° " & i
ElseIf Sheets(i).Tab.Color = 255 Then 'rouge
'c'est une feuille rouge faire le code...
MsgBox "feuille ROUGE N° " & i
End If
Next i
End Sub