Interrompre Boucle si cellule vide dans la colonne A

Option Explicit
Sub Export_ImprimChq()
' Export vers fichier texte
Dim Tinfos As Variant
Dim Fichier As String, Chemin As String, SepT As String
Dim start As Single
Dim derlig As Long, LTinf As Long, N As Long
  start = Timer
  'remplace le "." par "," dans la colonne "F"
  With Worksheets("Donnees").Range("F:F")
    .NumberFormat = "@"
    .Replace What:=".", Replacement:=","
  End With
  With Worksheets("BdD")
    derlig = .Range("A" & Rows.Count).End(xlUp).Row
    Tinfos = .Range("A2:C" & derlig).Value
  End With
  LTinf = UBound(Tinfos, 1)
  Close
  Fichier = ThisWorkbook.Name & ".txt"
  Chemin = ThisWorkbook.Path & "/"
  'Fichier = "ImprimChq_" & Environ("username") & "_" & _
            Format(Date, "yyyy-mm-dd") & "_" & _
            Format(Time, "hh-mm-ss") & ".txt"
  'Chemin = "C:\Users\h.rahmani\AppData\Roaming\" & _
           "ImprimCheques\00_Export_ImprimChq\"
  SepT = Chr(9) ' ""
  Open Chemin & Fichier For Output As #1
  For N = 1 To LTinf
    If Tinfos(N, 1) <> "" Then
      Print #1, _
      Tinfos(N, 1); SepT; Tinfos(N, 2); SepT; Tinfos(N, 3) _
      '  ; SepT; Tinfos(N, 4); SepT; Tinfos(N, 5); SepT; Tinfos(N, 6) _
        ; SepT; Tinfos(N, 7); SepT; Tinfos(N, 8); SepT; Tinfos(N, 9) _
        ; SepT; Tinfos(N, 10); SepT; Tinfos(N, 11); SepT; Tinfos(N, 12)
    End If
  Next N
  Print #1, "</END>"
  Print #1, "//"
  Close 1
  MsgBox "Traitement Terminé! Durée : " & Timer - start & " secondes"
End Sub

Sub Export_ImprimChq()
   Dim start As Single
start = Timer
   'remplace le "." par "," dans la colonne "F"
   Sheets("Donnees").Range("F:F").NumberFormat = "@"
   Sheets("Donnees").Range("F:F").Replace What:=".", Replacement:=","
   
    With Worksheets("BdD")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        Tinfos = .Range("A2:A" & derlig).Value
    End With

    LTInf = UBound(Tinfos, 1)
    Close
    'Fichier = ActiveWorkbook.Name & ".TXT"
    Fichier = "ImprimChq_" & Environ("username") & "_" & Format(Date, "yyyy-mm-dd") & "_" & Format(Time, "hh-mm-ss") & ".txt"
    Chemin = "C:\Users\h.rahmani\AppData\Roaming\ImprimCheques\00_Export_ImprimChq\"
    SepT = ""
    Open Chemin & Fichier For Output As #1


        For N = 1 To LTInf
 =>        If Tinfos(N, 1) <> "" Then
            For NL = 1 To 1
                If NL = 1 Then      
                End If
            Next NL
=>            End If
        Next N
        Print #1, "</END>"
        Print #1, "//"
    Close 1
MsgBox "Traitement Terminé! Durée : " & Timer - start & " secondes"
End Sub