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