Sub Importer()
Dim c As Range
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
With Sheets("INTERNE"): .Range(Range("a2"), .Range("d2").End(xlDown)).Delete: End With
With Sheets("Liste interne exporté")
For Each c In .[b:b].SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
If IsNumeric(c) Then
c.Offset(, 1).Resize(, 3).Copy Destination:=Sheets("INTERNE").Range("a" & Rows.Count).End(xlUp)(2)
c.Copy Destination:=Sheets("INTERNE").Range("d" & Rows.Count).End(xlUp)(2)
End If
Next
End With
[a1].CurrentRegion.Borders.Value = 1
Columns.AutoFit
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub