Demande d' aide sur Macro export

Sub Export_txt()
Dim c As Range, ValC As String
Sheets("DATA").Select
[COLOR=red]on error goto fin[/COLOR]
[COLOR=red]chemin = InputBox("Chemin SVP", "Export")
[/COLOR]Open [COLOR=red]chemin[/COLOR] For Output As 1
For Each c In Range("A1:F130")
ValC = c.Value
[COLOR=black]If ValC<>"depart reservé interdit" then
[/COLOR]If ValC <> "" Then
Print #1, Application.Trim(ValC)
End If
[COLOR=black]Else
Exit for
End If
[/COLOR]Next c
Close #1
[COLOR=red]exit sub[/COLOR]
[COLOR=red]fin:[/COLOR]
[COLOR=red]msgbox("Chemin non valide")[/COLOR]
[COLOR=red]onerror goto[/COLOR][COLOR=red] 0[/COLOR]
End Sub

Sub Export_txt()
Dim c As Range, ValC As String
Sheets("DATA").Select
[COLOR=red]on error goto fin[/COLOR]
[COLOR=red]chemin = InputBox("Chemin SVP", "Export")[/COLOR]
Open [COLOR=red]chemin[/COLOR] For Output As 1
For Each c In Range[COLOR=red]("A1:A30")[/COLOR]
[COLOR=red]for n=1 to 6[/COLOR]
[COLOR=red]ValC = ValC & Cells(c.Row,n) & " "[/COLOR]
[COLOR=red]next n[/COLOR]
[COLOR=red]If Instr(ValC,"depart reservé interdit")=0 then[/COLOR]
If ValC <> "" Then
Print #1, Application.Trim(ValC)
End If
[COLOR=black]Else[/COLOR]
[COLOR=black]Exit for[/COLOR]
[COLOR=black]End If[/COLOR]
Next c
Close #1
[COLOR=red]exit sub[/COLOR]
[COLOR=red]fin:[/COLOR]
[COLOR=red]msgbox("Chemin non valide")[/COLOR]
[COLOR=red]onerror goto[/COLOR][COLOR=red] 0[/COLOR]
End Sub