Option Explicit
Sub Export_Efge()
Dim i&, j&
Dim Dsktp$, Nm$
Dim DData As Variant
With Sheets("feuil1")
DData = .Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, 1).End(3).Row, .UsedRange.Columns.Count))
End With
Dsktp = CreateObject("WScript.Shell").specialFolders("Desktop")
Nm = Environ("UserName")
Open Dsktp & "\" & Nm & ".txt" For Output As #1
For i = LBound(DData, 1) To UBound(DData, 1)
If DData(i, 4) <> "" Then Print #1, DData(i, 4)
Next i
Close #1
End Sub