VBA Macro Excel

Sub ColleSuite()
Dim Lig As Long, Lig2 As Long
Dim Cherch As Variant, Index As Integer
    Cherch = "Nom1"
    Index = ActiveSheet.Index + 1
    For Lig = 1 To [A65536].End(xlUp).Row
        If Cells(Lig, 1) = Cherch Then
            Lig2 = Cells(Lig, 1).End(xlDown).Row
            Rows(Lig & ":" & Lig2).Copy Sheets(Index).Range("A" & Sheets(Index).[A65536].End(xlUp).Row + 2)
            Exit Sub
        End If
    Next Lig
End Sub

Sub Conversion()
Dim B As Boolean
    Workbooks.OpenText Filename:="C:\Users\Fabien\Desktop\Blabla.inp", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
        , Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
    
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Feuil1").Name = "COORDINATES"
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Feuil2").Name = "VERTICES"

    B = Cherch1("[COORDINATES]", 1)
    'peu tester Si retour de B = False c'est pas trouver
    B = Cherch1("[VERTICES]", 2)
End Sub

Public Function Cherch1(Ch As String, Index As Integer) As Boolean
Dim Lig As Long, Lig2 As Long
Dim Cherch As Variant, Index As Integer
    Cherch = Ch
    Sheets("Blabla").Select
    Index = ActiveSheet.Index + Index
     For Lig = 1 To [A65536].End(xlUp).Row
        If Cells(Lig, 1) = Cherch Then
            Lig2 = Cells(Lig, 1).End(xlDown).Row
            Rows(Lig & ":" & Lig2).Copy Sheets(Index).Range("A" & Sheets(Index).[A65536].End(xlUp).Row)
            Cherch1 = True
            Exit Function
        End If
     Next Lig
End Function

Sub Conversion()
Dim i As Integer, Col As Integer, g As Integer, TB
Dim NomFich As String, ChemFich As String, Sep As String
Dim Lig As Long, Lig2 As Long, Txt As String, Fich As Integer
Dim NomFeuill As String
    NomFich = Application.GetOpenFilename(Title:="Sélectionnez le fichier à convertir")
    
    If NomFich = "Faux" Then 'pas de sélection faite
        Exit Sub
    End If
    On Error GoTo Sortie
    Workbooks.OpenText Filename:=NomFich, Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
        , Array(3, 1), Array(4, 1)) ', TrailingMinusNumbers:=True
    On Error GoTo 0
    
    TB = Array("COORDINATES", "VERTICES")
    NomFeuill = ActiveSheet.Name
    With Sheets(NomFeuill)
        For Lig = 1 To .[A65536].End(xlUp).Row
            If .Cells(Lig, 1) Like "*" & TB(i) & "*" Then
                Sheets.Add After:=Sheets(Sheets.Count)
                ActiveSheet.Name = TB(i)
                Lig2 = .Cells(Lig, 1).End(xlDown).Row
                .Rows(Lig & ":" & Lig2).Copy Rows([A65536].End(xlUp).Row)
                i = i + 1: If i > UBound(TB) Then Exit For
           End If
        Next Lig
    End With
Sortie2:
Exit Sub
Sortie:
Resume Sortie2
End Sub

Sub Conversion()

    Workbooks.OpenText Filename:="C:\Users\Fabien\Desktop\Blabla.inp", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
        , Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
    
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Feuil1").Name = "COORDINATES"
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Feuil2").Name = "VERTICES"

    Sheets("Blabla").Select

Dim Lig As Long, Lig2 As Long
Dim Cherch As Variant, Index As Integer
    Cherch = "[COORDINATES]"
    Index = ActiveSheet.Index + 1
     For Lig = 1 To [A65536].End(xlUp).Row
        If Cells(Lig, 1) = Cherch Then
            Lig2 = Cells(Lig, 1).End(xlDown).Row
            Rows(Lig & ":" & Lig2).Copy Sheets(Index).Range("A" & Sheets(Index).[A65536].End(xlUp).Row)
            Exit Sub
        End If
     Next Lig
     
   ' La partie suivante ne mache pas : ....
    Sheets("Blabla").Select
    Cherch = "[VERTICES]"
    Index = ActiveSheet.Index + 2
    For Lig = 1 To [A65536].End(xlUp).Row
        If Cells(Lig, 1) = Cherch Then
            Lig2 = Cells(Lig, 1).End(xlDown).Row
            Rows(Lig & ":" & Lig2).Copy Sheets(Index).Range("A" & Sheets(Index).[A65536].End(xlUp).Row)
            Exit Sub
        End If
    Next Lig

End Sub

Public Function Cherch1(Ch As String, Ind As Integer) As Boolean
Dim Lig As Long, Lig2 As Long
Dim Cherch As Variant, Index As Integer
    Cherch = Ch
    Index = Ind