Empêcher l'exécution de la suite de la macro

Sub Exporter()
  Dim DossierFichierExcel As String
  Dim NomFichierCSV As String
  Dim ChaineTemp As String
  Dim Separateur As String
  Dim intNumeroFichier As Integer
  Dim strReference     As String
  Dim intColonne       As Integer
  Dim intPremiereLigne As Integer
  Dim intDerniereLigne As Integer
  Dim intIndexLigne    As Integer
 

 
  ' 2 - Création des fichiers .CSV

ICI : CREER LE CSV SEULEMENT SI LA VALEUR EN COLONNE A EST DIFFERENTE DE LA VALEUR "VIDE1" en format standard
  '
  DossierFichierExcel = ActiveWorkbook.Path
  Separateur = ";"
  intNumeroFichier = 1
  strReference = ""
  intPremiereLigne = 71
  intDerniereLigne = Cells(intPremiereLigne, 1).End(xlDown).Row
  For intIndexLigne = intPremiereLigne To intDerniereLigne
    If strReference = "" Then
      '

      '
      NomFichierCSV = Range("A1").Value
      NomFichierCSV = NomFichierCSV & intNumeroFichier & ".CSV"
      intNumeroFichier = intNumeroFichier + 1
      Open DossierFichierExcel & "\" & NomFichierCSV For Output As #1
      Print #1, "FICHIER 5.50 - GRP"
      Print #1, "NUM;" & Cells(intIndexLigne, 1) & ";"
    ElseIf Cells(intIndexLigne, 1) <> strReference Then
      '
    
      Print #1, "FIN" & Separateur & Separateur & Separateur
      Close
      

      NomFichierCSV = Range("A1").Value
      NomFichierCSV = NomFichierCSV & intNumeroFichier & ".CSV"
      intNumeroFichier = intNumeroFichier + 1
      Open DossierFichierExcel & "\" & NomFichierCSV For Output As #1
      Print #1, "FICHIER 5.50 - GRP"
      Print #1, "NUM;" & Cells(intIndexLigne, 1) & ";"
    End If
    '
 
    ChaineTemp = ""
    For intColonne = 2 To 11
      ChaineTemp = ChaineTemp & Cells(intIndexLigne, intColonne) & Separateur
    Next
    Print #1, ChaineTemp
    '
    strReference = Cells(intIndexLigne, 1)
  Next
  '

  Print #1, "FIN" & Separateur & Separateur & Separateur
  Close
 
End Sub