Microsoft 365 VBA Grouper colonnes sous conditions

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

Sub Masquer()
    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)).EntireColumn.Hidden = True ' Alors masquer les 3 colonnes
        End If
    Next C
End Sub