Supprimer colonne

Sub SupprimerColonnes()
Const li = 7
Dim co As Long, cofin As Long
With ActiveSheet
  cofin = .Cells(li, Columns.Count).End(xlToLeft).Column
  For co = cofin To 1 Step -1
    If .Cells(li, co).Value = "" Then Columns(co).Delete
  Next co
End With
End Sub

Sub AfficherColonnes()
Dim co As Long
For co = 1 To 50
  Columns(co).Hidden = False
Next co
End Sub

Sub MasquerColonnes()
Const li = 7
Dim co As Long, cofin As Long
With ActiveSheet
  cofin = .Cells(li, Columns.Count).End(xlToLeft).Column
  For co = cofin To 1 Step -1
    If .Cells(li, co).Value = "" Then Columns(co).Hidden = True
  Next co
End With
End Sub