Supprimer Colonne plutôt que ligne

Option Explicit
Option Base 1

Public Sub OK()
Dim plage As Range, li As Long, co As Long, nbli As Long, nbco As Long
Dim tplage(), lt As Long
Dim codeb As Long, cofin As Long
Set plage = Selection
nbli = plage.Rows.Count
nbco = plage.Rows.Count
lt = 1
ReDim tplage(1 To nbli, 1 To nbco)
For li = 1 To nbli
  For co = 1 To nbco
    If plage.Cells(li, co) <> "" Then
      tplage(lt, 1) = plage.Cells(li, co).Value
      lt = lt + 1
      Exit For
    End If
  Next co
Next li
plage.ClearContents
plage = tplage
End Sub

Option Explicit

Public Sub OK()
Dim plage As Range, li As Long, co As Long, nbli As Long, nbco As Long
Dim tplage(), lt As Long, ct As Long
Dim codeb As Long, cofin As Long
Set plage = Selection
nbli = plage.Rows.Count
nbco = plage.Columns.Count
lt = 1
ReDim tplage(1 To nbli, 1 To nbco)
For li = 1 To nbli
  ct = 1
  For co = 1 To nbco
    If plage.Cells(li, co) <> "" Then
      tplage(lt, ct) = plage.Cells(li, co).Value
      ct = ct + 1
    End If
  Next co
  lt = lt + 1
Next li
plage.ClearContents
plage = tplage
End Sub