Masquer des colonnes avec cellules vides

Private Sub Worksheet_Calculate()
Dim r As Range
Set r = Intersect([A:A].SpecialCells(xlCellTypeVisible), Me.UsedRange)
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
Me.ShowAllData
Me.UsedRange.EntireRow.Hidden = True
For Each r In r
  r.MergeArea.EntireRow.Hidden = False
Next
Application.EnableEvents = True
ActiveWindow.SmallScroll Up:=Rows.Count
End Sub

="SERVICE / ILOT"&T(SOUS.TOTAL(3;INDIRECT("B3:B65536")))

Private Sub Worksheet_Calculate()
Dim r As Range, affiche As Range
Set r = Intersect([A:A].SpecialCells(xlCellTypeVisible), Me.UsedRange)
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
Me.ShowAllData
Set affiche = [A1]
For Each r In r
  Set affiche = Union(affiche, r.MergeArea)
Next
Me.UsedRange.EntireRow.Hidden = True 'masque toutes les lignes
affiche.EntireRow.Hidden = False 'affiche les lignes filtrées
Columns.Hidden = False 'affiche toutes les colonnes
If affiche.Count < Me.UsedRange.Rows.Count Then 'si filtrage effectif
  For Each r In [C:AM].Columns
    If Application.CountA(Intersect(r, affiche.EntireRow)) _
      = IIf(r.Column = 3, 2, 1) Then r.Hidden = True
  Next
End If
Application.EnableEvents = True
ActiveWindow.SmallScroll Up:=Rows.Count
End Sub

With AutoFilter
  If Intersect(.Range, [A:A]) Is Nothing Then _
    Set affiche = Union(r, [A1].MergeArea): GoTo 1
  For i = 2 To .Filters.Count
    If .Filters.Item(i).On Then _
      Set affiche = Union(r, [A1].MergeArea): GoTo 1
  Next
End With

Range("C:C", Cells(2, Columns.Count).End(xlToLeft)).Columns