Sub Import_Data()
Dim derlig As Long, col As Long, i As Long, dercol As Long
Application.ScreenUpdating = False
Fichier = ThisWorkbook.Path & "\Source\Data.xls"
Workbooks.Open (Fichier)
Set WbData = Workbooks("Data.xls")
Set Sh = ThisWorkbook.Sheets(1)
With WbData
For i = 2 To .Sheets.Count
dercol = .Sheets(i).Columns("I").Find("", , , , , xlPrevious).Column
For col = dercol To 1 Step -1
If Application.CountA(.Sheets(i).Columns(col)) = 1 Then
.Sheets(i).Columns(col).Hidden = True
.Cells.SpecialCells(12).Copy Sh.Range("A" & Sh.[A65000].End(3).Row + 1)
End If
Next col
Next i
End With
WbData.Close savechanges:=False
'ActiveWorkbook.Close False
End Sub