Cacher les 5 colonnes qui suivent si cellule vide

Range("D6").Resize(, 6).EntireColumn.Hidden = IsEmpty(Range("D6"))

Option Explicit
Sub test()
Dim i As Long
For i = 4 To 22 Step 6
    Cells(6, i).Resize(, 6).EntireColumn.Hidden = IsEmpty(Cells(6, i))
Next i
End Sub

Private Sub Bouton5_Cliquer()
Dim i As Long
For i = 4 To 22 Step 6
    If Cells(6, i) = "" Then
        Cells(6, i).Resize(, 6).EntireColumn.Hidden = False
    End If
Next i
End Sub

Option Explicit
Sub test()
Dim i As Long
For i = 4 To 22 Step 6
    With Cells(6, i).Resize(, 6).EntireColumn
        .Hidden = Not .Hidden
    End With
Next i
End Sub

Option Explicit
Option Explicit
Sub Bouton5_Cliquer()
Dim i As Long
For i = 4 To 180 Step 6
    With Cells(6, i).Resize(, 6).EntireColumn
        If Cells(6, i) = "" Then
        .Hidden = Not .Hidden
        End If
    End With
Next i
End Sub