Option Explicit
Sub Macro1()
Dim y As Long
Dim compteur As Long
For y = 1 To Cells(Rows.Count, 3).End(xlUp).Row
If IsNumeric(Cells(y, 4)) And Cells(y, 4) <> "" Then
compteur = compteur + 1
Sheets("Sheet1").Cells(compteur, 1) = Cells(y, 4)
End If
Next y
' On trie la feuille 2
Worksheets("Sheet1").Select
Cells.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' On imprime avec d'éditeur PDF que l'on a : ici PDF Creator
Application.ActivePrinter = "PDFCreator sur Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne01:", Collate:=True
End Sub