Sub Regroupe()
Dim DC As Integer, C As Integer
DC = Cells(2, Columns.Count).End(xlToLeft).Column ' Dernière colonne
For C = 4 To DC Step 3 ' Pour toutes les colonnes par 3
If Cells(2, C) + Cells(2, C + 1) + Cells(2, C + 2) = 0 Then ' Si la somme en ligne 2 vaut 0
Range(Cells(1, C), Cells(1, C + 2)).Columns.Group ' Alors regrouper par 3 colonnes
End If
Next C
End Sub