Probleme sur une macro d'enregistrment en TXT

Sub ExportTXT()
Dim Range As Object, Line As Object
Dim StrTemp As String
Dim Rep As Variant
Dim L As Integer
Dim c As Byte

Rep = ("Q:\DIRIM\EXMA\Plan\test.scr")
If Rep = False Then Exit Sub

L = 1
With Sheets("Feuil1")
Set Range = .Range("A1:A2" & .Range("A65536").End(xlUp).Row) 'Quatre Colonnes
End With

Open Rep For Output As #1

For Each Line In Range.Rows
For c = 1 To 1
StrTemp = StrTemp & CStr(Cells(L, c).Text) 'Si séparateur TABULATION (par exemple
Next c
L = L + 1
Print #1, StrTemp
StrTemp = ""
Next

Close #1

Set Range = Nothing

Cliquez pour agrandir...

Rep = ("Q:\DIRIM\EXMA\Plan\test.scr")

Cliquez pour agrandir...

Sheets ("feuil2")
Rep = Range("a1")

Cliquez pour agrandir...