XL 2010 Eliminer les colonnes vide dans une selection

Option Explicit

Sub test()
Dim Wks As Workbook, derlig As Long, lig As Long, col As Long,  i As Long, dercol

    Application.ScreenUpdating = False

    Set Wks = "Classeur Source"

    With Wks
        For i = 1 To .Sheets.Count
            dercol = .Sheets(i).Columns("X").Find("", , , , , xlPrevious).Column
            derlig = .Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
            For lig = 2 To derlig            
                   For col = dercol To 1 Step -1
                            If .Cells(lig, col) = "" Then
                                 .Cells(lig, col).EntireColumn.Hidden = True
                                   'Ligne à adapter
                                 .Cells.SpecialCells(xlCellTypeConstants).Copy Feuil3.Range("a1")
                            End If
                  Next col
            Next lig
        Next i
    End With
    ActiveWorkbook.Close False
End Sub