Macros dans Excel... Je suis perdu !

Sub Test()
    Sheets("Feuil1").Select    
    For i = 1 To 5
        Nom = Cells(i + 1, 1).Value
        Sheets(i + 1).Name = Nom
    Next i
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncRg As Range, AncCell As String
Dim i As Integer
Dim FL1 As Worksheet
    On Error GoTo Sortie
    If AncRg.Column = 1 And AncRg.Row > 3 Then 'colonne A > ligne 3
        If AncCell = "" And AncRg.Value2 <> "" Then 'créer Nv feuille
            Set FL1 = ActiveSheet 'Pour y revenir après
            'Crée une nouvelle feuille et la place en dernier
            Worksheets.Add , Sheets(Worksheets.Count)
            Sheets(Worksheets.Count).Name = AncRg.Value2
            'Réactive la feuille où il y a les noms
            FL1.Activate
            FL1 = Nothing 'Supprime l'instance de FL1 pour éviter le dépassement pile.
        ElseIf AncCell <> "" And (AncCell <> AncRg.Value2) Then 'le nom en A1 à été modifié
            'recherche la feuille qui portait l'ancien nom
            For i = 1 To Worksheets.Count
                If Sheets(i).Name = AncCell Then
                'Modofie l'ancien nom de la feuille par le nouveau
                    Sheets(i).Name = AncRg.Value2
                    Exit For
                End If
            Next i
        End If
        
    End If
Sortie:
    Set AncRg = Target
    AncCell = Target.Value2

End Sub

'recherche la feuille qui portait l'ancien nom
            For i = 1 To Worksheets.Count
                If Sheets(i).Name = AncCell Then
                'Modofie l'ancien nom de la feuille par le nouveau
                    Sheets(i).Name = AncRg.Value2
                    Exit For
                End If
            Next i

   Sheets(AncCell ).Name = AncRg.Value2