Problème de tri d'onglets

Option Explicit

Sub Nommer_Feuilles()

Dim n As Integer

Application.ScreenUpdating = False

For n = 2 To Range("A65536").End(xlUp).Row
  Sheets(Sheets("Données").Cells(n, 1).Value).Move after:=Sheets(n - 1)
Next
Application.ScreenUpdating = True

End Sub

For n = 2 To Range("A65536").End(xlUp).Row
  Sheets(Sheets("Données").Cells(n, 1).Value).Move after:=Sheets(n - 1)
  [COLOR="Red"][B]ActiveSheet.Range("A1").Formula = "=Agent" & n - 1[/B][/COLOR]
Next